MAKE A LASTING 
IMPRESSION - 

BURN A PROM 



$2.50/ CAN. $3.00 JULY 1985 



CARDCO's new DIGI-CAM "is a video 
digitizer that Icls you transfonTi just about 
anything you can shoot with a video camera 
into a black-and-white digital image. And, 
with your Commodore 64' , you can make 
pictures of thai image. 
DIGI-CAM "'comes complete with a black- 
and-white video camera, a digitizer, and 
software. It's the most comprehensive package 
at the most competitive price around. And it's 
a CARDCO quality product. 

FOCUS. . .SHOOT. . . STORE. . . 
AND PRINT! 

DIGI-CAM ' ' is incredibly 

easy to use. Simply focus * 

the video camera on your 

subject, view the shot on 

your Commcxlore 64 ' 

monitor, store the shot on 

CARDCO's DIGI-CAM " 

software... and printout. 

You car) enhance or 

change the on-screen 



T 



" 




image — or combine it with text — because 
a version of CARDCO's Paint Now/Graph 
Now software is built in ... at no extra cost! 
Make T-shirts for your friends**, Christmas 
cards and birth announcements ... maps, 

graphs, photos, secur- 
ity i.d.'s... use it for 
business or pure 
pleasure. Plus, you 
can transfer still 
images via modem 
to other 

Commodore com- 
puters... and share 
your shots! (Soon to 
be compatible with Apple 
and IBM.) 

CAMERA, DIGITIZER, 
SOFTWARE...THE 
WHOLE PICTURE 
FOR S250* 
DIGI-CAM "from 
_ CARDCO. Tor just $250 




. . . shouldn't you be in pictures? 
CARDCO's DIGI-CAM ™ is available at fine 
computer stores everywhere. For more infor 
rnation contact your 
local CARDCO 
dealer. 



cardco, inc. 

"The world's largest manufacturer 

of Commodore' accessories." 

300 S. Topeka, Wichita, Kansas 67202 
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FOR $250:.. YOU OUGHTA 
BE IN PICTURES! 
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B~ efore we talk about what's in this issue of Ahoy!. 
let's talk about what's not in it. Two other Com- 
modore magazines, you may have noticed, ran re- 
views of the Commodore 128 Personal Computer 
in their June issues. Why did Ahoy!, which always leads the 
pack in announcing and reviewing new products, allow itself 
to be scooped in this singularly important instance? 

Tina Turner summed it up best when she said, "Wc never 
ever do nothing nice and easy." We weren't about to prepare 
a feature article on the 128 based on an afternoon's experi- 
mentation with the machine at Commodore's headquarters, as 
our two competitors did. We published our surface analysis 
of the 128 in April: not until Commodore shipped us a model 
of our own did Morton Kevelson sit down for a several-week 
round of testing the machine inside and out. The first pieces 
based on that research appear in the August Ahoy! As anxious 
as you are to read the definitive review of the Commodore 
128, we know a month is a long time to wait. But we've packed 
the July Ahoy! full of programs and features that should help 
make that month pass quickly: 

• The graphics theme begun last issue continues with Part 
II of Roger Macomber's tutorial on Screen Dumping on the 
Commodore 64, providing an onscreen Eteh-a- Sketch (turn 
to page 73). Then, Morton Kevelson takes an extended look 
at Tlte Print Shop, certainly one of the most popular Commo- 



ATTENTION COMMODORE 64 OWNERS 

DID YOU BUY THE WRONG PRODUCT? 

WE'LL PAY YOU FOR YOUR MISTAKE! 



PRINTER INTERFACE OWES 



No graphics, doesn't work with 
your software. Bad aspect ratios, 
no available buffer, weli you 
wouldn't have these problems with 
the Micro-World M W-350. We'll 
give you ?59. off the list price of 
Si 29. for that strange interface 
that's causing you trouble. 



LAST YEARS BACK 
UP SOFTWARE 



Everyone has Back-up software 
that reproduces errors, but will it 
back up non-standard sectors, re- 
produce density frequency 
alterations, alter the number of sec- 
tors, copy single sync hits, and 
reformat a single track? We don't 
think so. Send your antique back 
and recieve $25. credit toward the 
"New Revised Clone Machine" at 
S49.95. We've added an MSD 
dual drive Clone Machine also 
available for only S:i9.95. Upgrade 
your products to the latest state of 
the art today. ^£ ^$ 




CALL- 201 -838-9027 
or write us at y 

Micro** 

DISTRIBUTING INC 

I342B Rout* 23 Bull" N.I alWi 

■ tight I,. 
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dore programs of all time. Morton and Michael Beutjer (au- 
thor of last issue's Quad-Print) each contribute an enhance- 
ment utility that will help users get even more out of the pro- 
gram, (Turn to page 50.) Finally, our Art Gallery debuts this 
issue, with some of the first submissions of reader-generated 
graphics. (Turn to page 54.) 

• Once again, Orson Scott Card's Creating Your Own Games 
on the VIC and 64 transcends the genre of computer games — 
and published software. Trio Allegretto supplies machine lan- 
guage routines that you can imbed in your game program to 
play music that the program loads into BASIC strings, at any 
speed, on the VIC or 64. (Turn to page 18.) 

• They used to call it ROM burning, back when ROMs were 
programmed by burning open a fusable link. The days of burn- 
ing ROMs have vanished, along with the fusable links by which 
they were programmed: but the home user can still place his 
programs in Permanent Read Only Memory. In PROM Pro- 
gramming Made Easy, Morton the K shows 64 and VIC users 
how to do that at surprisingly low cost. (Turn to page 27.) 

• Bob Lloret returns to Ahoyl's program pages with Lucky 
Lottery for the 64. It's as valuable a system as you'll find any- 
where for picking the winning numbers in your state lottery- 
which means, completely worthless. But you'll have fun pre- 
dicting winners based on past weeks' results. (Turn to page 53.) 

• Moving up to the pseudo-scientific. Bob Spirko's Script 
Analysis will allow 64 users to prepare a character profile based 
on a subject's handwriting sample. (Turn to page 17.) Bob also 
contributes Tlie Wizard of Im, a machine language game for 
the 64. While the game's format is nothing new, what Bob does 
with a familiar theme is... magic! (Turn to page 47.) 

• Printat by Simon Edgcworth simulates the cursor-control- 
ling command of the same name found in some advanced ver- 
sions of BASIC. (Turn to page 45.) 

• William V. Braun's Auto-Append will allow VIC and 64 
users to merge programs instantly. (Turn to page 62.) 

• You've heard that it can be cheaper to lease a new car 
than buy one— but who can assess all the variables involved 
and make a determination? You can-with Gil Ragan's Autos: 
Leasing v. Buying for the C-64. (Turn to page 75.) 

• Have Dale Rupert and Mark Andrews got big plans for 
you this month! In the Rupert Report on Speeding Pixels, you 
and Dale will develop a pair of assembly language routines 
that will speed up the manipulation of the 64.000 pixels in hi- 
res bit mapped graphics on the 64. (Turn to page 37.) In Com- 
modore Roots. Mark Andrews steps you up to Writing and Run- 
ning an Assembly Language Program. (Turn to page 77.) 

At this point, we'll draw an exhausted breath and let you 
discover the rest of the programs and features in the July Ahoy! 
for yourself. (Didn't wc tell you we'd make you forget all about 
next month's feature on the 128?) —David Allikas 



AHOY! BULLETIN BOARD: 718-383-8909 

If your computer is equipped with a modem, you can 
call Ahoyl's BBS 24 hours a day. 7 days a week to ex- 
change mail with other Commodore users and download 
information on upcoming issues of Ahoy!, late-break- 
ing Commodore news, program corrections, and more. 
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An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Ennon Corporation 



My purpose in writing is to ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now. However, (here is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable clue to the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result; technology is never used to 
its fullest potential. But what's worst 
of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a resulf, the 
infinitesimal amount of technology 
that finally trickles down to you is: 

A. So expensive you are pro- 
hibited from procurring it 

B. Shamefully inferior to the 
real thing 

remember,,. you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are n>,ill\ 
simulators. They are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



I have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when I say AN-83 is 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data tile 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base— just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free , Eliza— the most amazing 
conversational A.I. program to date. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



step by step. It's surprisingly simple. 
I.uvi the beginner can understand 
the "How and Why of A.I." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, I 
am pleased lo say nobody will miss 
this ( hance because they could not 
afford it. AN-83 is priced to cover 
just a fraction of its research and 
developmental costs. 

The "Thinking' Program AN-83 is 
just $21.57. What's more, the 
asto Hiding El z.i - yours absolute . 
free . 

I guess it's obvious that 1 want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but I 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You just won't believe it. 
Please take this opportunity now. 
Simply till out your coupon below 
and mail today. Don't miss out. It's 
such a wonderful future of 
discovers and excitement that 
awaits you. 

With very best of wishes. 
Vincent Kurek 



I I Please send me the 

"Thinking" Program AN-83 
lor only $21.57. 
In addition, I will receive 
absolutely FREE Eliza— the 
most impressive 
conversational Artificial 
Intelligence program to date. 

Available in disk only. 

For use with the Commodore 64. 

Name 



Address 
City _ 
State _ 



Zip Code 



THE ENNON CORPORATION 

1817 W Call St., Suite B-8 
Tallahassee, FL 32304 

Canadian orders must be in U.S. dollars. 
We export to other countries. 
Commodore is a registered trademark. 
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INNOVATIVE ORGANIZERS, INC 
For Commodore 64™ & VIC-20 



TM 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now. let's examine how these organizers work. There arc 3 CRT-Models. 
CRT-1 holds a Monitor or T.V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6 AMP Fuse). 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 
P-D-l: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection, 

CALL FOR LIST OF SOFTWARE AVAILABLE 

\K 30 .nil c l. inn. L . iii. u- M arc iradi'marK nrCnmmudorc Etcvlrwm-s, I 1 D 



P.O. Box 108. Markleville. IN 46056 
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CRT-1 
CRT-2 
CRT-3 
P-D-l 



$17.98 
$29.97 
$37.97 
$19.48 



Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 
1-800-233-3645 Ext. 15 



SCUTTUEI3U77 



COMBO DAISY WHEEL/DOT MATRIX PRINTER • ONE MEGABYTE DRIVE 
VIC SPEECH SYNTHESIZER • FAST TAPE LOADER • GAMES FROM SSI, 

FIRST STAR, MASTERTRONIC • RUNNER'S LOG • COMPUTER MAILBOX 
SCIENCE LAB SOFTWARE • STORYBOOK MAKERS • AUTO-REBOOTER 



PASCAL ENHANCEMENT 

Advanced Kyan Pascal, like the 
Standard version, is a full Jensen/ 
Wirth implementation, but adding 
string handling, enhanced graphics, 
chain, include File, random access 
files, full pathname for files, and 
other extensions. Featured arc a full- 
screen text editor and built-in assem- 
bler, The compiler, which generates 
optimized 6502 machine code, runs 
8 times faster than Standard Pascal 
and 30 times faster than BASIC. 

Advanced Pascal is available on a 
non-copy protected diskette for 
$69.95, Standard Pascal for S49.95. 

Kyan Software. 1850 Union Street 
#183, San Francisco, CA 94123 
(phone: 415-775-2923). 

ESTIMATING SOFTWARE 

Computerized Pricing Systems' Es- 
timating Software, made available for 
over 25 micros since 1982, has been 
released in a 64, Plus/4, and 128 
compatible version. If and when 
Commodores LCD Portable is re- 
leased, it will be made available for 
that as well. Price is $399.95; store 
owners may obtain a demo diskette 
for S19.95. 

Computerized Pricing Systems. 
3090 Oak Circle N., Broomfield. CO 
80020 (phone: 303-469-0557). 

OKIMATES 

Okidata reports that the Okimate 
10 color printer now supports 12 
graphics packages: DOODLE!. Ko- 
ala Painter (and Pad), the Edumate 
Light Pen software, Super Sketch, 
Flexidraw, Paint Magic, Chalk Board, 
Sorcerers Apprentice, Designers 
Pencil, Color Me, Cadpak and Tech- 
Sketch. 



Okidata, 532 Fellowship Rd., Mt. 
Laurel, NJ 08054 (phone: 609- 
235-2600). 

AUTOMATIC REBOOTER 

Intended for bulletin boards, secur- 



The Okimate 10 
color printer is 
now compatible 
with 12 different 
graphics soft- 
ware packages. 
(See review on 
page 101 of the 
March '85 
Ahoy!) 
READER 
SERVICE 
NO. 125 



gineer units. The battle is waged in 
10 turns, from September 17-26. Price 
is S49.95. 

Computer Ambush simulates man- 
to-man combat between your ten in- 
fantrymen and a (usually) hidden en- 




ity systems, and other "constant use" 
applications for the C-64, the ABL- 
64 cartridge will reboot and run an 
essential program after a power fail- 
ure as soon as power is restored, even 
if the computer is left unattended. 
Price is $39.95. 

Input Systems, Inc., 15600 Palmet- 
to Lake Drive, Miami. FL 33157 
(phone: 305-252-1550). 

NEW GAME RELEASES 

Three for the C-64 from SSI: 
Designed for the avid strategist. 
Operation Market Garden simulates 
Montgomery's 1944 paratroop raid on 
occupied Holland. As leader of the 
largest daylight airborne and surface 
operation in history, you coordinate 
airstrikes, engage in combat, blow up 
and rebuild bridges, and initiate 
cross-river assaults with airborne/en- 



emy An onscreen map shows build- 
ings, hedges, walls, doors, windows, 
and the location of your soldiers. 
Price: $59.95. 

Newly adapted for the 64, Cartels 
and Cutthroats puts you in charge of 
a manufacturing plant. Based on 
newswires, market summaries, profit 
and loss statements, and memos from 
department heads, you must make ex- 
ecutive decisions. Ulcer-inducers in- 
clude inflation and high interest rates, 
labor demands, and government 
intervention. Price is $39.95. 

Strategic Simulations Inc., 883 
Stierlin Road, Bldg. A-200, Moun- 
tain View, CA 94043-1983 (phone: 
415-964-1353. 

Encouraged by the success of their 
Spy Vs. Spy game, based on charac- 
ters from Mad Magazine, First Star 
will release a line of Super Powers 
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„ ^\EAR2000,THE WORLD 

„ May Catch Up With The Way 
CompuServes Electronic Mall 
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Presenting the computer 
shopping service that delivers 
discount prices, name-brand 
merchandise, and in-depth 
product information. 

To make your computer even more 
useful, join CompuServe and shop in 
our Electronic Mall. Easy enough for 
beginners, it's open 24 hours a day, 
7 days a week. And it offers a wide range 
of goods and services from nationally 
known stores and businesses including 
Bloomingdale's, Waldenbooks, American 
Express and Commodore. 

CompuServe's Electronic Mall" lets 
you shop at your convenience in all 
these departments: 

The Auto Shop, Book Bazaar, Finan- 
cial Mart, Leisure Center, Merchandise 



Mart, Newsstand, On-line Connection, Per- 
sonal Computer Store, Record Emporium, 
Specialty Boutique and Travel Agency. 



Take the CompuServe Electronic 
Mall 15-Minute Comparison Test. 

What you can do in 15 minutes 
shopping the Electronic Mall way. 

• Access descriptions of the latest in 
computer printers, for instance. 

• Pick one and enter the order 
command. 

• Check complete descriptions of 
places to stay on your next vacation. 

• Pick several and request travel 
brochures. 

• Access a department store catalog 
and pick out a wine rack, tools, 
toys... anything! 

• Place your order. 

Wltatyou can do in 15 minutes shop- 
ping the old way. 

• Round up the family and gel in 
the car. 



The Electronic Mall — A Valuable 
Addition to the Vast World of 
CompuServe. 

CompuServe Information Services 
bring you information, entertainment, 
personal communications and more. 

You can access CompuServe with 
almost any computer and modem, 
terminal or communicating word 
processor. 

To buy a CompuServe Subscri ption 
Kit, see your nearest computer dealer. 
To receive our informative brochure, or 
to order direct, call or write: 

CompuServe 

Information Services. P.O. Sox 20212, 

5000 Arlington Centre Blvd., Columbus. OH 43220 

800-848-8199 

In Ohio call 614-457-0802 



The Electronic Mall™ is a service of CompuServe Inc. and L M. Berry A Company- 
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An H & R Block Company 



programs beginning in September, 
starring comic book heroes like Su- 
perman and Wonder Woman. 

Additionally, First Star announced 
that they will release Boulder Dash 
in a combination Commodore-Atari 
disk format. 

First Star Software, 18 East 41st 
Street, New York, NY 10017 (phone: 
212-532^666). 

Big Ben Games, Ltd. will import 
a number of British games for the 64 
and VIC at prices of $16.95 (disk) or 
$14.95 (tape). None have ever before 
been sold in the United States. The 
titles of some of the releases tell you 
why: Bizy Beezzzz, Choc a Bloc 
Charlie, Bumping Buggies, Son of 
Biagger, Cave Fighter, and Flight 



NEWS 




Two 50K games for $9.99, or m a K. 
READER SERVICE NO. 127 

Path 737. Coming is a text adventure 
based on the BBC program Tripods. 

For a free catalog, write Big Ben 
Games, Ltd., Box 875, Wilmette, IL 
60091 or call 1-800-421-5300 (ask for 
operator R37). 

British gamemaker Mastertronic 
has released Se-Kaa ofAssiah, com- 
prising two complete 50K programs. 
The gamer is required to find the Rod 
of Light, the Hammer of Vib-Ra, and 
the Casket of Vib-Ra and return them 
to their proper resting places, thus 
saving the world of the far future 
from the threat of Dark Hordes. Price 
is $9.99. 

Mastertronic International, Inc., 
407 Park Avenue South, Suite 16A, 
New York, NY 10016 (phone: 212- 
213-0166). 



Temperature 
Lab enables the 
user to choose 
between Fahren- 
heit and Celsius 
readings, to 
compare tempera- 
ture scales on the 
same screen, and 
to display data in 
either graph or 
table form. 
READER 
SERVICE 
NO. 126 




EDUCATIONAL RELEASES 

Temperature Lab is the first release 
in Hayden Softwares science labor- 
atory series, designed to transform a 
home or classroom into a science re- 
search center. The program, which 
enables students to conduct experi- 
ments that illustrate classic scientific 
phenomena, includes an electronic 
thermometer that plugs into the 64, 
enabling students to record temper- 
atures and see them displayed on the 
screen. An Experimenter's Guide 
provides step-by-step instructions for 
experiments. Price: $99.95. 

Soon to follow is Light Lab, focus- 
ing on various visible light concepts 
like foot-candles, solar eclipses, and 
sunsets. 

Hayden Software Company, Inc. , 
600 Suffolk Street, Lowell, MA 
01854 (phone: 617-937-0200). 

CBS Software will adapt selected 
titles from its preschool product cate- 
gory for optional use with the Mup- 
pet Learning Keys Computer Key- 
board (see review in March '85 
Ahoy!). 

CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). 

Basic Math Competency Skill 
Building consists of eight tutorial and 
practice programs designed for math 
students from intermediate to high 
school. Each disk is $59.95; the 8- 
diskette series is available for $325.00. 

Educational Activities, Inc., P.O. 
Box 392, Freeport, NY 11520 (phone: 
516-223-4666). 

Notebook Fun teaches students to 



keep neat notes. Tests, structured as 
games, are included. Price: $19.95. 
AC3L Software, P.O. Box 246, 
New Derry, PA 15671. 

STORY-WRITING SOFTWARE 

Build a Book About You allows an 
adult to incorporate the name, ad- 
dress, pet, school, and friends of a 
child into a 32-page hardcover story- 
book. Available titles are The Mys- 
tery of Scented Mountain, The Holi- 
day Dragon, Adventures on the Rid- 
dle Planet, and The Greatest Circus 
Story Ever Told (all written for chil- 
dren 2-12 years old). Each kit is 
$39.95; refill kits are $19.95. 

Scarborough Systems, Inc., 55 S. 
Broadway, Tarrytown, NY 10591 
(phone: 1-800-882-8222). 

Two additions to Woodbury Soft- 
ware's PlayWriter lineup of home- 
makeable hardcover novels, designed 
for advanced young users and adults 
(the earlier releases Tales of Me and 
Adventures in Space were recom- 
mended for children aged 7-14): 

Mystery! allows the writer to 
choose and describe his sleuth, de- 
termine method and motive of mur- 
der, and create his own cast of char- 
acters. If you want to be surprised, 
the program will pick the murderer 
for you. 

Castles & Creatures lets you con- 
struct a fantasy world replete with 
dragons, knights, princes and prin- 
cesses, and sorcerers. 

All four PlayWriter titles sell for 
$39.95 and include disk, color stick- 
ers, and full-page illustrations. 

AHOY! 9 
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Woodbury, along with Grolier 
Electronic Publishing, will sponsor 
a novel writing contest for students— 
using PlayWriter software, naturally. 
Children in the 4th grade and below 
will use Adventures in Space, 5th-6th 
grade Castles & Creatures, and 7th 
grade and up Mystery! Books will be 
judged on content, originality, gram- 




PlayWriter line spans all age groups. 
READER SERVICE NO. 128 

mar, spelling, and overall effect, with 
a $1,000 prize and a home computer 
for the winner in each category. En- 
tries will be accepted from October 
15, 1985 to January 15, 1986; entry 
blanks will be distributed through 
schools and retailers. 

Woodbury Software, 127 White 
Oak Lane CN#1001, Old Bridge, NJ 
08857 (phone: 201-679-0200). 

SIGHT & SOUND 
ENHANCEMENTS 

Sight & Sound has added bonus 
programs to their Kawasaki Rhythm 
Rocker and Incredible Musical Key- 
board disks: 

Rhythm Rocker now contains a new 
notation system that will display ev- 
erything the user plays on the screen, 
a score printer, auto-correct, and the 
ability to change voices while play- 
ing, transpose to any of 12 keys, and 
use a multitude of specially created 
effects. Price remains at S34.95; cur- 
rent owners can upgrade for $15.00. 

Incredible Musical Keyboard now 
allows for recording songs using up 
to three voices and sports a new no- 
tation and graphics program and five 
background accompaniments. Price 

10 AHOY! 



is $39.95; upgrade is $7.00. 

Sight & Sound Music Software, 
Inc., P.O. Box 27, Dept. R2D2, New 
Berlin, WI 53151 (phone: 414- 
784-5850). 

VIC-TALKER 

Long overshadowed by that other 
Commodore computer, the VIC 20 
can now make some noise with VIC- 
Talker. Using advanced English pro- 
nunciation rules and a user-expand- 
able exception memory, Talker will 
supposedly provide unlimited vocab- 
ulary translation of text to synthesized 
speech. The cartridge will operate 
immediately upon power-up with an 
unexpanded VIC 20. The user can 
vary pitch to synthesize a singing 
voice or emphasize statements, ques- 
tions, and exclamations. 

Priced at $89.00 plus shipping and 
handling, VIC-Talker will be shipped 
within four weeks of receipt of or- 
der by Talktronics, Inc., 27341 East- 
ridge Drive, El Toro, CA 92630 
(phone: 714-768-4220). 




load a disk), the Express Tape Op- 
erating System cartridge provides 
commands to recover lost or crashed 
BASIC programs. Available for 
$49.95 plus $3.00 postage (CA resi- 
dents add 6% sales tax) from B.P.E., 
22 Ethel Lane, Mill Valley, CA 94941 
(phone: 415-388-0727). 



Speech synthesizer for the VIC 20. 
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RUNNER'S LOG 

Jogger offers no training schedule 
for runners, but will enable C-64 us- 
ers to compute weekly, monthly, and 
annual statistics based on regular en- 
tries of time, mileage, and weight. 
The information is available in the 
form of tabular data on screen or 
printer, or as 23 different hi-res 
graphic plots. Price is $29.00. 

Parsons Software, 1920 Briar Mea- 
dow. Arlington, TX 76014 (phone: 
817-465-4720). 

FAST TAPE LOADER 

In addition to allowing your data- 
cassette to load tapes eight times fast- 
er (or 20% faster than your 1541 will 




Prices slashed! Hurry in and save! 
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PRICE REDUCTIONS 

Price reductions on assorted C-64 
utilities: 

PractiCorp has lowered the price 
of PractiCalc 64 and PractiFile from 
$49.95 to $29.95 each, and the price 
of 64 Doctor to $19.95. 

PractiCorp International Inc. , The 
Silk Mill, 44 Oak Street, Newton 
Upper Falls, MA 02164 (phone: 617- 
965-9870). 

International Tri Micro has lowered 
the price of The Write File, Your 
Home Office, and Plus Graph to 
$29.95 each. 

International Tri Micro, 14072 
Stratton Way, Santa Ana, CA 92705 
(phone: 714-832-6707). 

BETTER WORKING 

The first title in Spinnaker's Bet- 
ter Working line of productivity soft- 
ware for the 64, announced several 
months back, has finally come avail- 
able. Spreadsheet ($49.95) combines 
a full-featured spreadsheet with the 
basic text entry, editing, and word 
wrap capabilities of a word proces- 
sor and the sort and search capabili- 
ties of a database. Slated for late sum- 
mer release are File & Report 
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VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands lo your programs with this super 
development package. You can distribute free RUN- 
TIME version without paying royalties! 
ISBN"' 0-916439 26-7 S59.95 

BASIC COMPILER 64 - compiles the 

complete BASIC language into either fast 6510 

machine language and/or compact speedcode. Get 

your programs into high gear and protect them by 

compiling. 

ISBN*' 0-916439-17-6 $39.95 

MASTER-64 • professional development 
package for serious applications. Indexed file 
system, full screen management, programmer's 
aid, BASIC extensions. 100 commands 
ISSN-- 0-916439-21-6 S39.9S 

PASC AL-64 - full Pascal with extensions lor 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines 
ISBN;/ 0-916439-10-0 $39.95 



ADA TRAINING COURSE - leaches 
you the language of the future Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120 + 
page guide. 
ISBN* 0-916439-15-1 S59.95 

FORTH-64 - loaded with hires grapnics. com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 S39.95 

C LANGUAGE COMPILER - a full C 
language compiler. Conforms to the Kernighan & 
Ritchie standard, but without bit fields Package in- 
cludes editor, compiler and linker 
ISBN* 0-916439-28-3 S79.95 

ASSEMBLER MONITOR-64 - a 

macro assembler and extended monitor package 
Assembler supports floating point constants. 
Monitor supports bank switching, quick trace, single 
step. more. 
ISBN* 0-916439-11-9 S39.95 



XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
ISBNff 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard. 
VISA and American Express accepted. 
Michigan residents imm ~ **■■ 
mcl 4% sales tax. EB j , i 



FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 
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($49.95), a combined database and 
report generator; and Word Proces- 
sor, featuring a spelling checker. All 
three programs will integrate. 

Better Working, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

BOOK RELEASES 

Two from Howard W. Sams & Co. : 

Vie Commodore Plus/4 Book 
($16.95) compares the Plus/4 to other 
machines, provides an overview of its 
features, accessories, and software, 
and discusses its compatibility with 
C-64 peripherals. Also included are 
database and keyboard tutorials, an 
introduction to BASIC 3.5, and a 
chapter on system setup. 

Tfie Commodore 16 User's Manual 
($12.95) helps new to intermediate 
users become familiar enough with 
BASIC 3.5 to work successfully with 
numbers, produce simple graphics, 
design color and music, and calcu- 
late mathematical equations. 

Howard W. Sams & Co. , Inc. 4300 
W. 62nd St., Indianapolis, IN 46268 
(phone: 317-298-5400). 
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INTEGRATED HOME DATA MANAGER with WINDOWS, 

ON SCREEN CALCULATOR, and CALENDAR. 

HOME CHECKBOOK •♦interns auUlpl* .account* 

for quick and »a«y *n*lysi>. 

HOC ADDRESSBOOK up to 200 rtcordi of 

nailing data with search and label options 

HOME INVENTORY provi da* valuable property 

i n*or n*t ion recall and analysis. 

AVAILABLE ON DISK ONLY.., « 2*7. 73 
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The World According to Robo the 
Robot ($12.95) introduces the read- 
er to robotics, covering MEGO, the 
computer language of robots, the ro- 
bot's brain, hardware chpis used, and 
a brief discussion of LISP, LOGO, 
and FORTH. 

Hayden Book Company, 10 Mul- 
holland Drive. Hasbrouck Heights. 
NJ 07604 (phone: 201-393-6306). 




Coven BASIC 3.5, graphics, more. 
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Tlte Guidebook for Winning Adven- 
turers ($9.95) provides answers to 
questions on various levels for such 
games as Zork l-lll. Enchanter, and 
Infidel, plus information on how ad- 
venture games are programmed. 
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Software, features, accessories, etc. 
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Baen Books, 8 West 36th St., New 
York, NY 10018 (phone: 212- 
947-8244). 

Sound and Graphics for the Com- 
modore 64 ($14.95) takes the reader 
step by step through composing and 
playing melodies and sound effects, 
drawing cartoons, and then combin- 
ing the sound and graphics. 

John Wiley & Sons, Inc., 605 
Third Ave., New York, NY 10158 
(phone: 212-850-6000). 

FINANCIAL PARTNER 

Home users and businesses that 
write under 150 checks a month can 
use Financial Partner to keep track 
of income and expenses. The pro- 
gram will print checks, address la- 
bels and envelopes, and prepare and 
print a list of financial transactions, 
ledger accounts, income statements, 
and balance sheets. It will also pre- 
pare records for tax returns. Price is 
$74.95. 

Practical Programs. Inc., P.O. Box 
93104, 625 N. Milwaukee St.. Mil- 
waukee, WI 53203 (phone: 414- 
278-0829). 



M/ 




The SG-10C is Commodore-compatible. 
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A STAR IS REBORN 

Star Micronics' forthcoming SG- 
10C printer is an SG-10 (see review 
in May '85 Ahoy!) with a built-in 
Commodore interface, making it in- 
stantly compatible with the C-64, 
VIC 20. and C-128. Price will be 
$299.00. 

Star Micronics, Inc., 200 Park 
Avenue, New York, NY 10166 (phone: 
212-986-6770). 
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"Micro Mail" is the first dedicated and powerful mailing list designed exclusively for your Commo- 
dore 64. It's completely menu driven and loaded with prompts. Some say you don't need instructions, but we 
included them anyway. "Micro Mail" will add, delete, edit, search, display, print, and sort all your records in 
a matter of seconds. If you have a need to store and retrieve information, don't be without "Micro Mail." 

"Micro Checkbook" is bound to be the standard for other programs to live up to. Like "Micro 
Mail," it is dedicated and very powerful. It's completely menu driven and very user friendly. "Micro Checkbook" 
will add, delete, edit, search, display, print, and sort all records in a matter of seconds as well as store all tax 
information and balance your statement every month. If your checkbook is a problem (and whose isn't?), "Micro 
Checkbook" is your permanent cure. 

Available Soon: M'cro Calendar, Micro Inventory, Star Trivia and Post Time. 
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TELECOM NEWS 

CompuServe subscribers who are 
members of Commodore user groups 
may now have unlimited access to the 
electronic edition of the Academic 
American Encyclopedia for $34.95 a 
year, or 30% off the regular price of 
$49.95 (connect charges extra). 

Grolier Electronic Publishing. Inc., 
Dept. NH, 95 Madison Ave., New 
York, NY 10016 (phone: 212- 
696-9750). 




Signalman Error-Free: detects errors. 
READER SERVICE SO. LIS 

Two new products from Anchor 
Automation: 

Designed for small businesses and 
individuals who want to utilize their 
microcomputers for mailing services, 
the Signalman Computer Mailbox 




Signalman Mailbox: stores messages. 
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($299) will receive and store incom- 
ing messages whether or not the us- 
er's computer is online, and provide 
remote access and message pickup 
with multilevel password protection. 
Memory is 64K. 
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Installed between modem and 
computer - (or dumb terminal), the 
Signalman Error-Free ($199) detects 
and controls errors in asynchronous 
data communication. 

Anchor Automation, Inc., 6913 
Valjean Ave.. Van Nuys, CA 91406 
(phone: 818-997-7758). 

CompuTrav, a directory of discount 
travel and vacations offered by a na- 
tionwide network of airlines, hotels, 
car rental agencies, and the like, of- 
fers discounts of up to 60% off regu- 
lar prices. Charges are $1 per month 
plus 20C per minute connect time. 

CompuTrav, 622 Broadway, New 
York, NY 10012. 

The North American Online Di- 
rectory 1985 lists 1511 machine-read- 
able databases alphabetically, by 13 
subject areas, and by 13 services of- 
fered. Price is $75.00. 

R.R. Bowker Company P.O. Box 
1807, Ann Arbor, MI 48106 (phone: 
1-800-521-8110). 

Georgia OnLine, purportedly the 
nation's first regional information ser- 
vice, will provide Atlanta area users 
with information about the local com- 
munity and services such as electron- 
ic mail and home shopping. 

Georgia OnLine, Suite 720, Two 
Piedmont Center, Atlanta. GA 30305 
(phone: 404-233-1915). 

TWO INTERFACES 

Compatible with all Commodore 
computers that use the Commodore 
type serial bus, the Printmaster/+G 
parallel interface ($119.95) allows full 
emulation of a 1525 or 801 printer, 
including full graphics and graphics 
characters. Advanced capabilities in- 
clude the ability to display a disk di- 
rectory without erasing a BASIC pro- 
gram, or a complete printer interface 
status. Available is a 16K buffer 
($89.95) which provides faster graph- 
ics printing, renumbering and old 
utilities, and more features. 

Omnitronix. P.O. Box 43, Mercer 
Island, WA 98040 (phone: 206- 
236-2983). 

The Apricord CD ($69.95) will 
also allow a host of printers to pro- 
duce all Commodore graphics char- 
acters. Utilizing a single-chip 65C02- 
compatible microprocessor that has 
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Printmaster/+G emulates 1525/801 
READER SERVICE SO. 140 

a wider instruction set than the C-64 
itself, it is reportedly the only paral- 
lel interface available that can be pro- 
grammed in 65C02 code (a "super- 
set" of C-64 assembly code). 

Apricorn, 7050 Convoy Ct., San 
Diego, CA 92111 (phone: 619- 
569-9483). 




Apricord CD: programmable in 65C02. 
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FORMULAS SOFTWARE 

A program for calculating formu- 
las commonly used in electronics (in- 
cluding Ohm's law, passive compo- 
nents, reactance, and others) is avail- 
able for $10.00 from Jack Morrow, 
7421 NW. 5th Terrace, Oklahoma 
City, OK 73127 (phone: 405- 
495-5071 before 1 p.m.). 

ONE MEGABYTE DRIVE 

Commodore's SFD (Super Fast 
Drive) 1001 will have a one megabyte 
storage capability on a double-sided, 
double-density format. A utility disk 
with 64 and 8032 utilities will be in- 
cluded. The drive, contained in a case 
identical to the 1541's, will retail for 
$399.95. 

Progressive Peripherals & Soft- 
ware, who will distribute the SFD for 
Commodore, will also manufacture 
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SFD-1001 can store 1M on disk. 
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Easy-Link, a serial to IEEE connec- 
tor necessary to link the C-64 to the 
drive and other IEEE-488 devices. 
The unit, which will include its own 
power supply, will sell for $99.95. 
Progressive Peripherals & Soft- 
ware, 2186 South Holly, Suite 200, 
Denver, CO 80222 (phone: 303- 
759-5713). 

TWIN BROTHER 

$300 is a lot to pay for a printhead. 
But that's what you're doing if you 
start out with a dot matrix printer and 



Brother HR-10: tractor, 2K buffer. 
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of a document. 

Speed is 36 characters per second 
in daisy wheel mode, 140-160 cps us- 
ing the nine pin dot matrix printhead. 
Included are a 3K buffer (expandable 
to 11 or 19K), and choice of six bit 
image densities. 

Also new from Brother is the HR- 
10 daisy wheel printer with bidirec- 
tional printing. 2K buffer, and tractor 
feeder. Price is $349. 

Brother International Corporation, 
8 Corporate Place, Piscataway, NJ 
08854 (phone: 201-981-0300). 



DUAL DISK CATALOGUER 

Masterdual, like the previously 
released Masterdisk, is a disk cata- 
loguer with disk repair utilities. The 
difference is that Masterdual is de- 
signed for 4040-format dual disk 
drives (such as the MSD SD-2). 

The price of $29.95 includes a 
quick-reference translation card for 
equivalent hex, ASCII, binary, and 
decimal values. 

Integrated-Software Systems, P.O. 
Box 1801, Ames, IA 50010 (phone: 
515-233-2992). 

25 PROGRAMS ON DISK 

Vie Commodore 64 Programmer's 
Library includes over 25 utility, 
home management, and game pro- 
grams on disk, with two additional 
disks supplying documentation and 
a utility for printing your own copies. 
Price is $25 postpaid in US and 
Canada; foreign orders $35 via in- 
ternational money order. 

Baker Enterprises, 15 Windsor 
Drive, Atco, NJ 08004 




Twinriter 5: combination dot matrix and daisy wheel. 
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later add a cheap daisy wheel -be- 
cause the printhead is the only real 
difference. It's always seemed ironic 
to us, in light of the miracle of the 
home computer, that no one can 
make a dual-purpose printer. 

While the $1295 Twinriter 5 from 
Brother is intended for the small of- 
fice environment, it is the first print- 
er to feature combination daisy wheel 
and dot matrix printheads. Mode can 
be switched by pushbutton or soft- 
ware commands, even in the middle 



NEXT 

MONTH: 

Scuttlebutt 

provides 

pre-release 

information 

on many 
Commodore- 
compatible 
products that 
will debut at 
June's Con- 
sumer Elec- 
tronics Show, 



VIDEOGAMING 

COLLECTOR'S 

ITEMS 

Collecto Inc. has acquired the re- 
maining copies of the fourteen 
rarest issues of Vsdeogaming and 
Computergaming Illustrated. As 
reference tools they are invalua- 
ble, and they contain some of the 
best interviews in the history of 
the videogaming industry. Plus 
dazzlina oriqinal artwork that 
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teen issues for only $15.95 (in- 
cluding postage and handling); 
outside the U.S. add $6.00. 

COLLECTO INC. 

P.O. BOX 1019 

BRYN MAWR, PA 19010 
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Because DSKDU (May '85) was written on a VIC 20, 
with its eight extra characters per line, line 2220 was 
too long to enter on the 64. C-64 users can amend this 
problem as follows: 

2220 BY=P+L*4+C/2:HX=CAND1:H1$(0)=HX$(D% 

(BY)/16):H1$(1)=HX$(D%(BY)AND15) 

2221 C1=INT(C*1.5) 

In the first installment of Commodore Roots (April 
'85), on page 52, it is stated that in hexadecimal, the 
letters A-F represent the decimal numbers 11-16 respec- 
tively. That should be 10-15. Thanks to Michael R. 
Whitner of Toledo, Ohio for alerting us to the error. 

On page 35 of the May '85 issue, the phone number 
of Epyx is listed incorrectly. The correct number is 
408-745-0700. 

The Font Factory, described on page 7 of our June '85 
issue, is available from Micro-W. Distributing, Inc., 
1342B Rte. 23, Butler, NJ 07405 (phone: 201-838-9027). 

We apologize for any inconvenience caused by the 
above errors. Remember that mistakes in Ahoy! pro- 
grams and articles are posted on our bulletin board 
(718-383-8909) as soon as they are spotted. 



CARTRIDGE-MAKER-64 

Create your own C0MMQD0RE-64 Video game and program cartridges! 




Easy Menu-Driven instructions allow you to: 

□ Copy your BASIC or ASSEMBLER □ Erase and reuse cartridge 
programs to cartridge p Create Autostart cartridges without the 

□ Copy from cartridge to cartridge nee d to be skilled in machine language. 

□ Copy your cartridge to diskette or cassette 



CARTRIDGE-MAKER-64 $1 29.00 

CARTRIDGE-ERASER $59.00 

CARTRIDGE-64 (1 6K) $25.00 

CARTRIDGE-MAKER SYSTEM ..... $1 89.00 

Includes CARTRIDGE-MAKER-64. CARTRIDGE ERASER, 
and 1 Blank CARTRIDGE-64 (16K each) 

Purchase of 5 Blank 

CARTRIDGE-64's ( 1 6K each) ..$11 5.00 

SHIPPING:S3 00 (If COD., add S2 00. PA residents add 6% sales tax) 

VISA-MASTERCARD-C D -CHECK 

DEALER 8, DISTRIBUTOR INQUIRIES INVITED 




Also Available from CPG: 

6502 Single Board Computer S389 00 

5 Voll Switching Power Supply 79 00 

SK EPROM's (2764) 5 50 

16K EPROMs (27120) S9 95 

EPROM sockets 50 

CARTRIDGE-64 Bare Boards 1 2 00 

Cartridge Cases 3 00 

Cartridge Board with Case 14 00 

6-position DIP Switch 2 00 

ASYNC-CARTRIDGE-64 (ACIA) 59 95 

ASYNC-WEDGE-64 (Sollware) 1 9 95 

ADD-A-SOUND-64 29 95 

Real-Time Calendar/Clock 79 95 

Software for COMMODORE-64 Call or write for prices 



Custom Programming Group, Inc. 

47-2A Marchwood Road • Exton, PA 19341 
(215) 363-8840 



CARTRIDGE-MAKER-64 I CARTRIDGE-64 are Trademarks d Cuslom Prrjg/ammncj Group Inc 

COMMODORE-64 is a registered irademark at Commodore Business Machines. Inc 

CAPTRIDGE-MAKER-64 is no! intended tor piracy ol copyrighted malerial 
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It's happened to all of us at one time or another. 
We see someone at a distance and although we 
cannot make out his features, we recognize him 
by his walk or his gestures. His body language dis- 
closes his personality. The hand, a part of the body, also 
reveals a person's character, but it has a singular differ- 
ence—it leaves a tracing of its movement on paper. This 
tracing can be analyzed to determine personality, the sci- 
ence of which is called handwriting analysis, or graph- 
ology. A detailed analysis can take several hours to pre- 
pare, but a general analysis can be made simply and eas- 
ily using Script Analysis. More important, you don't have 
to know a thing about handwriting analysis to use it. 
The program will not analyze handwriting, but it will 
interpret your observations. Don't worry if you don't know 
what to look for. The program is rife with instructions 
and examples. I've made extensive use of character graph- 
ics to guide you along. All you do is answer the ques- 
tions and the computer will do the rest. 

While the analysis is general and less accurate than 
an indepth analysis done by a professional graphologist, 
it will provide you with a personality description of any 
sample of handwriting that you care to use. It was not 
feasible to incorporate the hundreds of characteristics that 
can be interpreted, so I chose a few dozen for their ease 
of recognition and general acceptance in graphology 
(opinions vary widely on some interpretations). 

In the program, each handwriting characteristic is at- 
tributed words that describe personality traits. The pro- 
gram has a vocabulary of 74 words ranging from aes- 
thetic to unreliable. The program compiles all the words 
or traits that appear in the script, but in the analysis it 
only lists those that appear more than once. Contradic- 
tions may turn up, but this does not necessarily mean 
the analysis is wrong. It is, for instance, possible to be 
both careful and careless. A person may be meticulous 
about writing a program while at the same time he allows 
his working space to degenerate into disarray! 

The sample of handwriting should follow a few rules. 
For one thing, it must be written on a blank piece of pa- 
per; no guidelines may be used. Letter-sized paper is 
preferred. As for the implement, ball-point pen or pen- 
cil is best since pressure cannot be interpreted from a 
felt-tip pen. Probably the best samples to analyze are from 
letters, since they are usually written spontaneously. 
With your sample on hand, run the program. You'll 



first be asked for the filename. Next you'll be asked if 
it is a new file or if it is to be LOADed. If you press 
N you'll then be asked if the sample was written by a 
lefthanded or righthanded person. Answer this and you'll 
be given the first of fifteen categories, slant. Follow the 
instructions and then choose the appropriate handwrit- 
ing characteristic. You'll go through each category this 
way. Once you've completed all of them, you'll be given 
a lisl of the handwriting characteristics that you chose, 
followed by two lists of personality traits. Dominant Traits 
are traits that have appeared three or more times, whereas 
Other Traits have occurred only twice. From there you 
have the option of sending the file to printer, disk, or 
tape; or you can elect to begin another analysis. □ 
SEE PROGRAM LISTING ON PAGE 102 



WORD RUNNER 

Word Processing System by N-Systems 

Perfect for the first-time user — 

• No printer or page set-up required for standard format. Just enter 
a file name and start typing. 

• All editing is done in "normal" text entry mode. No special 
insert or edit modes. 

• Single-keystroke commands— no complicated command syntax. 

• Fast, efficient machine language operation. 

For the advanced user too — 

• Move up to six thousand characters of text at one time— even 
between documents. 

• Full screen editing. 

• Global Search— Search and Replace. 

• Built-in commands for italic, underline, bold-face, double width, 
superscript and subscript. 

• Automatic page numbering. 

• Display each page on the screen and edit before printing, or print 
entire document in continuous stream 

• Document length may be up to entire disk. 

AND— WORD RUNNER costs ONLY $44.95! 

To order WORD RUNNER, send check or money order to: 
N-Systems • P.O. Box 160 • Steger, IL 60475 

(Illinois residents add sales tax) 
WORD RUNNER is available for Commodore-64 on disk only and will 
work with Epson, Gemini, Okidata, and Commodore printers. 
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When you sit down at the piano, you don't 
have to be an expert musician. You hit a 
key and music comes out. If you hit too 
many keys, and you don't know what 

you're doing, you can turn it into noise pretty quickly. 
But the problem then is that you can make sounds too 
easily; you have to practice to get your own fingers un- 
der control. 

That's because the piano is designed to do one thing 
and do it well. It translates the pressure of your fingers 
on the keys into strokes of a hammer against carefully 
tuned strings. Ail you have to do is figure out which keys 
to press. 

"Oh, is that all, Mr. Card? Then you'll love to sit right 
down and play this little Chopin Nocturne. And when 
you've done that, I've got a Debussy, a Satie, and a charm- 
ing little Mozart piece you'll be glad to diddle out for us." 

No, I'm not saying it's easy. I'm just saying it's a heck 
of a lot easier than if you had to hold five or six hammers 
and hit the strings yourself! 

Now, the VIC and Commodore 64 are not as conveni- 
ently designed as a piano. For one thing, the keyboard 
is designed with alphabetics, not harmonics, in mind. 
For another, the BASIC language completely ignores mu- 
sic in both computers -you have to use machine language 
or POKEs to produce the sounds. Even more limiting 
is the fact that you can never have more than three mu- 
sical notes playing at the same time in either machine. 

So you'll be delighted to know that this issue of Ahov! 
includes machine language routines that you can embed 
in your own programs to play music that your program 
loads into BASIC strings. Mind you, unless you want 
to play nothing but the three songs I've included here as 
examples, you're going to have to do some calculating, 
and to make it work with your own program you'll have 
to do some programming, too. But these routines will 
allow you to play music as fast as you want to— too fast 
to hear, in feet— and using all three voices on either com- 
puter. 



THE SHAPE OF THE SOUND 

Even more important is the fact that both programs 
c let you design the shape of the sound. This was fairly 
S) easy on the 64, since the SID chip was designed to al- 
^ low sound "shaping;" it was much trickier on the VIC, 
| and the results were far less effective, because the com- 
" puter wasn't designed with sound shapes in mind. 
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Before you can effectively use these routines, though, 
you need to know something about sound. 

The sound produced by a musical instrument does not 
have the same volume all the way through the note. For 
instance, a gong begins very loudly and then slowly fades 
away; a bowed violin begins much less sharply, but sus- 
tains its tone fairly loudly while it is still being played. 
A piano sound begins sharply, fades off rapidly to a low- 
er sustain level, until the key or the pedal is released; 
then the note continues to "ring" until it fades to nothing. 

The way that the volume varies during the sounding 
of the note is called the "sound envelope.* 1 The speed at 
which the sound rises from silence to the loudest volume 
is the "attack." The speed at which the sound then falls 
off after the attack is called the "decay." The volume that 
the sound stays at as long as the note is held is called 
the "sustain." And the speed at which the sound drops 
back to silence after the note stops being played is called 
the "release." 

Notice that attack, decay, and release are all speeds- 
how fast the volume changes from soft to loud or loud 
to soft. Sustain is a volume control. The initial attack 
always takes the note to the maximum volume; the sustain 
is the fraction of that volume that the note has during 
the time it is held. 

DOING ENVELOPES ON THE 64 

A computer doesn't have to fuss with sound envelopes. 
You can simply switch on the note and it will continue 
to play that note until you switch it off. However, this 
makes for boring, mechanical sounding music. 

So the designers of the Commodore 64 put the sound 
envelope entirely within your control. Each of the three 
musical voices has a separately controlled sound envel- 
ope, so that you can have the illusion of three different 
musical instruments playing at once. 

Each of the three voices has four four-bit envelope con- 
trol registers. Each four-bit register controls one of the 
envelope parameters -attack, decay, sustain, or release. 
Since four bits can hold any number from to 15, the 
attack, decay, sustain, and release are all expressed as 
numbers from to 15. 

In the case of attack, decay, and release, the number 
represents speed: is the fastest, and 15 the slowest. In 
the case of sustain, the number represents volume: is 
silence, and 15 is maximum volume. 

These four four-bit registers use up a total of 16 bits. 
Since they are read from ordinary eight-bit memory lo- 
cations, those 16 bits are carried in only two memory 
locations for each voice. The first byte of each pair con- 
trols attack and decay; the second byte controls sustain 
and release. For voice 1, the registers are at locations 
54277 and 54278; for voice 2, 54284 and 54285; for voice 
3, 54291 and 54292. 

If you POKE (or, in machine language, STA) these 
values into those locations, you have to change them a 
bit. Let's say you have a fairly sharp attack of 2, a gentle 
decay of 7, a low sustain of 5, and a slow release of 14, 
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and you want this envelope to be played by voice I. rirst, 
you multiply the attack by 16 (16*2=32) and then add 
it or OR it (in ML, ORA it) with the decay value of 7. 
The resulting number, 39, is POKEd (or STAed) into lo- 
cation 54277. Then you multiply the sustain by 16 
(16*5=80) and add it or OR it with the release value of 
14. The resulting number, 94, is POKEd (or STAed) into 
location 54278. 

Once that envelope is set for voice 1, every new note 
that you "gate" on-POKE 54276,(PEEK(54276)AND 
254)OR 1— will use that same attack, decay, and sustain, 
and will keep playing the note at the sustain volume un- 
til you -gate" it off- POKE 54276, PEEK(54276)AND 254. 

The 64 sound program. Song Maker, does all the cal- 
culating for you. All you have to do is set the individual 
attack, decay, sustain, and release values for each of the 
three voices in lines 9010, 9020, 9030, and 9040. AK%( ) 
is set to the attack for each voice; DY%( ) is set to the 
decay for each voice; and so on. 

FAKING IT ON THE VIC 

The VIC does not have separate envelope controls for 
the three sound generators, so the machine language rou- 
tine has to fake the effect by changing the volume con- 
trol at location 36879. Because all three voices are con- 
trolled by the same volume instruction, the three voices 
all have to have the same envelope. This does not mean, 
however, that they will sound the same. This is because 
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each of the three voices has a different waveform, or tone 
quality (see below). 

The VIC Music program has two sound routines. The 
BASIC statements from line 9010 to 9039 put the sound 
envelope routine in memory locations 663 to 767. The 
machine language commands contained in lines 9011, 
9016, and 9025 contain subroutines that execute delays 
for varying lengths of time, ranging from milliseconds 
to the duration of an individual note. 

The rest of the machine language routine executes as 
follows: 

Line 9030: this subroutine is used constantly to set the 
volume register to the desired level. It reads the old val- 
ue at location 36878. ANDs it with 240 to wipe out the 
old volume level, ORAs it with the current volume (which 
is maintained by another routine in location 150), and 
STAs it at 36878. 



(If you aren'l familiar with how this is done in machine language, 
here is a detailed explanation of each number in the routine: 

173 is the command LDA (absolute), which means "pick up into 
the accumulator whatever number is found at the memory location 
described in the next two byles." 

14 is the low byte of the address of the memory location. 

144 is the high byte, or page number, of the address. To find the 
decimal equivalent, you would use 144*156 +14, which is 36878. 
To go the other direction, from 36878 to low byte (LB), high byte 
(HB) form, you would use HB = INT(36878/256):LB = 36878- 
(256*HB). 

41 is the machine language command AND (immediate), which 
means "perform a bitwise AND operation between the number now 
in the accumulator and the number that immediately follows this 
instruction." 

240 is the next number. Il is ANDed with the number now in 
the accumulator, which we picked up a moment ago from location 
36878. (This operation has the effect of zeroing out the volume-con- 
trol bits, without disturbing the four bits at that location that have 
nothing to do with sound.) The result of this AND operation is put 
back in the accumulator. 

5 is the command ORA (zero page), which means "perform a 
bitwise OR operation between the number now in the accumulator 
and the number found at the zero-page location described by the 
next byte." 

150 is the address of the location where other routines store the 
number that they want used for the volume. Since the command 
5 specified that this would be a zero- page address, the high byte 
of the address is assumed to be and doesn't have to be stated. (This 
operation has the effect of combining the new volume value with 
the unchanged high byte of the original number at location 36878.) 
The result of this ORA operation is put back in the accumulator. 

141 is the command STA (absolute), meaning "take the number 
in the accumulator and store it at the memory location specified 
by the next two bytes." It's the reverse of the LDA (absolute) command. 

14 is the low byte again. 

144 is. again, the high byte of address 36878. 

96 is the command RTS, which means "return from this subrou- 
tine." The computer immediately jumps back to the next instruc- 
tion after the JSR (address) instruction that invoked this subroutine 
in the first place. 

For obvious reasons, we won't go into this kind of detail with the 
rest of the machine language routines included here.) 



Line 9035: gradually bring the volume from to 15, 
pausing between each increment of the volume for the 
amount of time specified by the attack value at location 
659 (low byte 147, high byte 2). 
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Line 9036: pause for a moment at peak volume. 

Line 9037: gradually bring the volume down from 15 
to the sustain value specified at location 661, pausing be- 
tween each decrement of the volume for the amount of 
time specified by the decay value at location 660. 

Line 9038: wait for the amount of time specified by 
the duration value stored at zero-page location 149 (an- 
other routine puts this number here), combined with the 
basic tempo set at location 170. 

Line 9039: gradually bring the volume down from the 
sustain value to 0, pausing between each decrement of 
the volume for the amount of time specified by the re- 
lease value at location 662. The volume is now zero, the 
note is finished, so return from this routine to the pro- 
gram that called it. 

This is perhaps more detail than you wanted, but it 
does show you how a sound envelope is created. None 
of this is necessary in the 64, because the SID chip does 
all this automatically (and. I might add. much more 
smoothly and effectively); furthermore, the volume of 
all the notes is changed at once. 

THE QUALITY OF THE TONE 

The quality of a sustained note comes from the shape 
of the sound wave. The ringing tone of a gong comes 
from a very different sound wave than the blare of a trum- 
pet, and a violin makes an altogether different tone. Note 



that this is not related to the sound envelope. A piano 
string, for instance, produces the same sound wave if it 
is plucked or if it is hammered, since the identical string 
is vibrating— but the sound envelope, the way the sound 
volume happens, is very different. 

The 64 lets you choose one of three different musical 
waveforms for each voice. This waveform is selected by 
turning on bits at the control register (voice 1, location 
54276; voice 2, 54283; voice 3. 54290). Remember that 
bit of this location is the gate control — if bit is a 1, 
the sound begins; if it is 0. the sound is released. 

Bits I through 3 control sophisticated modifications 
of the tone quality that I won't attempt to explain here. 
(I've always found it somewhat harder to explain to other 
people things I don't understand myself) 

Bit 4 selects the triangle waveform. (Add 16 to the gate 
number.) 

Bit 5 selects the sawtooth waveform. (Add 32 to the 
gate number.) 

Bit 6 selects the pulse waveform. (Add 64 to the gate 
number.) 

Bit 7 selects the random noise waveform. (Add 128 
to the gate number. This is not used to produce melody 
or harmony.) 

Now, I could spend a long time trying to tell you what 
the different waveforms sound like, but the truth is you 11 
only know what they sound like by trying them yourself. 
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The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest. 

Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D "skyscraper" graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key to VIZASTAR's power the first 
and only program of this kind on the 
C-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 
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In the 64 program, just change the values at line 9070 
to select the waveform for each voice. You can combine 
the waveforms -that is, add both 32 and 64 or 16 and 
32 or all three -but the result is less than thrilling. 

However, you must choose at least one of the wave- 
forms, or no sound will be produced. So the number you 
POKE in to gate the sound on will be waveform + 1; 
to gate the sound off, you can POKE a simple or POKE 
in waveform + 0. 

The pulse waveform is even more complicated than 
the others, because it can have different widths, which 
are controlled by the two memory locations just before 
the gate/waveform control register for each voice. The 
first of these bytes can use a value from to 255; the 
second byte from to 15. 

WAVEFORM AND PITCH ON THE VIC 

The VIC also allows you to choose different waveforms. 
but only by choosing the particular voice that has that 
waveform. When you choose to play voice 1, at 36874. 
you automatically get a low sawtooth waveform. Voice 
2, at 36875. has a medium pulse waveform. Voice 3, at 
36876, has a higher pulse waveform. 

You use these registers to select the pitch -and to turn 
the voice on and off. The pitch is a value from to 127. 
The pitches are exactly one octave different from voice 
to voice. That is, if you POKE the value 67 into register 
36874. it will produce a C; if you POKE 67 into loca- 
tion 36875, it will also produce a C, but it will be an 
octave higher; a 67 stored in location 36876 will pro- 
duce a C an octave higher still. 



Whatever pitch you choose must be added to 128 to 
produce the actual sound, since 128 activates the on-off 
switch in each register. So to play that C in any of the 
three voices, you have to POKE register, pitch + 128. 

The pitches are as follows: 



7 


67 


97 112 C (B-sharp) 


15 


71 


99 113 D-fiat (C-sharp) 


19 


73 


100 


D 


23 


75 


101 


E-flat (D-sharp) 


31 


79 


103 


E (F-flat) 


35 


81 


104 


F (E-sharp) 


39 


84 


105 


G-flat (F-sharp) 


47 


87 


107 


G 


51 


89 


108 


A-flat (G-sharp) 


55 


91 


109 


A 


59 


93 


110 


B-flat (A-sharp) 


63 


95 


111 


B (C-flat) 



To play each note, add it to 128 and POKE it into the 
register of your choice. To turn off the note, POKE a 
into the same register. 

HOW TO PUT MELODIES INTO THE 64 

The program Song Maker uses exactly the same sys- 
tem of entering melodies in last month's program. To re- 
view briefly, the music is entered in strings starting at 
line 9500. The MDS( ) string contains the duration of 
each note of the phrase, expressed as a number from 
to 9. (You can determine the actual length of each dura- 
tion value at lines 9100-9105.) 

The ME$( ) string contains the pitches for each note 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VIController allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 

Your system can be expanded by adding Genesis' COMsense input device, Super 

Schedule Plus software, and available sensors. Commands can J3P' ; -:,'~^^=#/\ i 

then be issued in response to on/off inputs such as the - Vl i 

opening of a door or analog inputs such as a change in ;':.::■■■■ 

light level. By adding COMclock, a crystal '■■ i 

controlled clock/calendar, your system will 

have an accurate, battery 

backed-up time base. . ' 

COMclock's Autoboot ROM _, " , , 

acts as a failsafe restart lor 

the system in the event of 

a power failure. 




Sold separately the VIController. 

COMsense and COMclock 

sell for $69.95 each and 

the Super Schedule Plus software sells for $19.95. All lour products are available together in our HOME CONTROL 

PACKAGE for only S199.95. 

Call 215-861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. • P.O. Box 152 • Hellertown, PA 18055 
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in the phrase, expressed as alphabetic characters from 
A to G. These correspond exactly to the notes of the musi- 
cal scale. To "sharp" a note, press SHIFT and the de- 
sired letter (C-sharp is SHIFT-C); to "flat" a note, press 
COMMODORE and the desired letter (B-flat is 
COMMODORE-B). To silence the voice (a musical rest 
or tacet), enter the @ symbol. 

The MVS( ) string selects which octave the note should 
be played in. It is a value from to 6. You only need 
to enter a number when the octave changes; as long as 
the melody is in the same octave, just enter a space. All 
the strings for the same phrase must be exactly the same 
length. 

The program Summertime shows all the lines that need 
to be changed to enter a different melody. Once you have 
typed in and saved Song Maker, delete all the lines be- 
tween 9500 and 9890 and then type in all the lines shown 
with Summertime. The program will now play a differ- 
ent melody with different waveforms and envelopes. With 
this song, all three voices play the same pitch every time, 
but with different waveforms and envelopes; the com- 
bination can be surprisingly effective. 

The Song Maker program's chief value is that it trans- 
lates standard musical notes to the numeric form the 64 
can use. However, it is very time-consuming during the 
setup. The program provides three ways for you to get 
the pitch value to use directly in the program that you're 
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First, the program will display each note's duration and 
pitch values on the screen, if you select the P option (press 
N to stop it from printing each note). 

Second, the program will save the entire song on disk 
in the file you name in line 200. Third, the program will 
rewrite itself if you select the MAKE DATA option. Make 
sure, however, that you have already SAVEd a version 
of the program with your new melody on it, because the 
MAKE DATA option destroys all the lines in which you 
entered the melody using musical notes. 

VITAL NOTE: no matter what else you do with this 
program, the variable FS must be the very first variable 
assigned in your program. This is because the machine 
language routine takes the current note information di- 
rectly from the very first variable in the variable table, 
which must be a string, and must contain the pitches of 
the notes for all three voices in order. 

HOW TO PUT MELODIES INTO THE VIC 

To use the program VIC Music, you can't use musical 
notation: you'll have to calculate the pitches yourself, us- 
ing the table printed above. Your routine for entering the 
melody should be placed at line 9100. The variable SL 
must be set to the total number of notes in the melody. 
Then you must assign the duration of each note to the 
string MDS and the pitches for each voice to the strings 
MIS, M2$, and M3$. 

VITAL NOTE: it is absolutely essential that MDS, MIS. 
M2$, and M3S be the first four variables mentioned in 
your program, in that order, because the machine lan- 
guage routine reads those string variables from the start 
of the variable table. Also, all four strings must contain 
exactly the same number of characters. 

Notice that the melody included with this program as- 
signs all the notes exactly the same duration. It could 
just as easily have read all the durations from a DATA 
statement, just as it now reads all the pitches. Also, no- 
tice that only M3S is assigned its pilches from the DATA 
statements, M2$ and MIS are then set to be the same 
as M3S. (Since M3$ has the highest voice, it will prob- 
ably be most useful as the melody.) 

Any pitch value from to 127 will cause a note to be 
played, since it will be added to 128. If you want a note 
to be a rest or tacet, put it in the DATA statement as 128 
or greater, since line 9110 converts any DATA value above 
127 to 0, which shuts off the sound of that voice until 
the next note. 

Half the fun, however, will come from your own ex- 
periments. Enter your own melodies and change the en- 
velopes to see what happens. 

(Note: If you program performs any cassette, disk, or 
RS232 operations after the sound routines are set up. they 
will have to be set up again, since the ML routines will 
be wiped out.) 

That's enough for this month. Next month we'll finish 
with sound by playing around with sound effects for the 
VIC and 64. Then we can get back to something we can 
see. □ SEE PROGRAM LISTINGS ON PAGE 90 




ost of us are well aware 
of the two types of 
memory inside our 
computers. We can 
hardly miss the signif- 
icance of random-ac- 
cess memory (RAM), as the term is 
a prime selling point for most manu- 
facturers. The C-64 has 64 kilobytes 
of the stuff, which is used for the 
temporary storage of programs and 
data. The VIC 20 comes with only 
five kilobytes of RAM, with provi- 
sions for adding up to 35 kilobytes 
externally. Actually, both the C-64 
and the VIC 20 have an additional 
1,024 nibbles of RAM (a nibble is 
four bits, or half a byte) which is used 
for the screen color map. In the C-64, 
these nibbles share the address space 
at $D800-$DBFF (55296-56319) 
with the character ROM and the sys- 
tem RAM. 

Read-only memory (ROM) is not 
as well known to most users, since 
it plays a much smaller part in most 
promotional literature. Yet it is the 
programs in this permanent storage 
which give the computer its built-in 
personality. Both the VIC 20 and the 
C-64 are equipped with 20 kilobytes 
of ROM. The machine language pro- 
grams which make up BASIC 2.0 and 
the operating system require 16 kilo- 
bytes of ROM. The remaining four 
kilobytes store the patterns for the 
Commodore character set. Without 
this permanent storage, the compu- 
ter would be about as useful as a 
doorstop when first turned on. 

Early users of microcomputers 
were not nearly as fortunate. In those 
bygone days of yesteryear (the early 
70's) the persona] computer had to be 
initially programmed by hand via a 
series of switches. This would usual- 
ly allow for the loading of several 
hundred bytes of additional code, 
usually stored on a punched paper 
tape. This had to be done every time 
the computer was turned on. By the 
mid 70's things had improved some- 
what. ROMs storing as much as 256 
bytes had dropped in price to the 
point where a serious hobbyist could 
afford them. There was even talk of 
one kilobyte chips. As we shall short- 
ly see, we have come a long way. 



PFtOM 

PROGRAMMING 

MADE EASY 



A Guide to Permanent 
Program Storage in 
Read Only Memory 



By Morton Kevelson 



PROGRAMMING 
YOUR OWN 

Several types of ROM are present- 
ly available. The kind that come in 
the VIC 20 and the C-64 are the 
mask programmable variety. These 
are used because of their extremely 
low cost (pennies per chip) in mass 
production quantities. For small users 
or hobbyists they are of little inter- 
est, as the initial setup costs are very 
high. The most popular type for indi- 
vidual users are the erasable pro- 
gramable read-only memories 
(EPROMs). These have always been 
considered essential tools by serious 
computer hobbyists. 

The Commodore PET series of 
computers were even equipped with 
several empty chip sockets for the ex- 
press purpose of installing addition- 
al ROM. In fact, these machines were 
not intended to have more than 32 
kilobytes of RAM. Some quirks in 
the VIC 20 and C-64 operating sys- 
tem are relics from these forerunner 
machines. A notable example is the 
inability to perform a memory dump 
to tape from addresses above S7FFF 
(32767). 



The designs of the VIC 20 and the 
C-64 have placed less emphasis on 
personalized PROM programming. 
This is in spite of the fact that both 
machines have provisions for consid- 
erable software on plug-in ROM car- 
tridges. Nevertheless, supporting 
products for PROM programming 
have always been available for both 
computers. Those so inclined can 
readily avail themselves of this fas- 
cinating and useful technology. The 
state of the art is such that we feel 
at the very least every user group 
should consider acquiring the hard- 
ware for the convenience of their 
members. 

Burning a ROM once referred to 
the process of placing a program into 
permanent memory. ROMs are no 
longer burned. This term is a hold- 
over from the early days when some 
varieties of memory were pro- 
grammed by literally burning open 
selected fusable links. This crude 
process has been replaced by the 
floating-gate avalanche-injection me- 
tal-oxide semiconductor transistor 
(FAMOS). These are specially fabri- 
cated field-effect transistors which 
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have the ability to store a minute elec- 
trical charge. In the discharged slate 
the transistor looks like an open 
switch. This represents a binary one. 
When the charge has been placed, the 
switch is effectively closed to repre- 
sent a binary zero. An EPROM chip 
is actually an organized conglomer- 
ation of these devices on a tiny bit 
of silicon. 

HOW THEY WORK 

A factory fresh PROM is com- 
pletely discharged. In this state all the 
bits contain a one. If you were to ex- 
amine an unprogrammed PROM you 
would find that each byte contains the 
value of SFF (256). The program- 
ming process consists of three steps. 
First, the proper address is selected. 
Second, the information to be stored 
is placed on the data lines. Finally, 
a high programming voltage (usual- 
ly 24 volts) is placed on the program- 
ming pin. This voltage has to be very 
carefully controlled. If it is applied 
for too long, damage to the chip may 
result. If it is applied for not long 
enough, insufficient charge will be 
deposited and the stored information 
will be unstable. 

EPROMs have one other charac- 
teristic which makes them so desir- 
able as a development tool. Once the 
data has been properly programmed 
it is quite permanent, with a storage 
lifetime of many years. However, un- 
der the proper conditions, the data 
can be removed and the EPROM may 
be reused. In fact, with proper hand- 
ling, there is no limitation on the 
number of times this cycle may be re- 
peated. The EPROM is erased by il- 
luminating the cells with ultraviolet 
light of a particular wavelength (2537 
angstroms to be exact). A quartz win- 
dow is thoughtfully provided on the 
chip package for this very purpose. 

A PROM programmer is a special- 
ized device designed to generate the 
necessary addresses, data, and pro- 
gramming voltages. A properly de- 
signed programmer will include 
enough built-in flexibility to handle 
a variety of EPROM types. 

THE EPROM FLAVORS 

EPROMs come in a variety of con- 
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figurations. The most popular now- 
adays are the 2700 series, where the 
memory cells are arranged in an ar- 
ray which is eight bits or one byte 
wide (that is, addressing a single lo- 
cation returns a full byte of data). In 
contrast, the RAM chips in the C-64 
are set up as a single bit per address. 
It takes eight chips in parallel to make 
up a single byte. 

Memory chip capacities are spe- 
cified in bits, not bytes. Thus, to ob- 
tain the chip's byte capacity, you have 
to divide by eight. The last two dig- 
its of the chip number represent the 
chip capacity in kilobits. For exam- 
ple, a 2764 contains 65,536 bits of 
storage capacity organized as eight 
kilobytes. Incidentally, the 2764 hap- 
pens to be the most popular PROM 
chip for hobbyists as of this writing. 
It offers the lowest cost per bit among 
the available chip sizes. It also hap- 
pens to be the capacity of the ROM 
chips used by the VIC 20, the C-64, 
and the 1541 disk drive for their op- 
erating systems. The 27128 is not far 
behind in a direct cost comparison. 
Its desirability hinges on placing 16 
kilobytes of storage in a single soc- 
ket. The 27256 (32 kilobytes) is also 
reasonably priced if you need the ca- 
pacity. The 27512 (64 kilobyte) holds 
a whopping half a million bits of data. 
As of this writing, it is still priced be- 
yond most hobbyists at several hun- 
dred dollars. However, we are all 
aware that prices in the semicon- 
ductor industry tend to drop rapidly 
as time goes on. 

The user should also be aware of 
the number of pins required for the 
different chips. The ROMs in the 
VIC 20 and the C-64 are in a 24-pin 
package. All the chips mentioned 
above come in a 28-pin package. The 
manufacturers have made the pin lay- 
outs very similar, so that an adapter 
can be easily constructed. A 24-pin 
variety of the eight kilobyte EPROM 
is available. The model MCM68764 
from Motorola fills the bill at a price 
which is currently five to six times 
as high as the 28-pin 2764. 

When shopping for chips, keep in 
mind the other factors that affect 
price. These are primarily speed and 
power consumption. Given the slow 



clock speed of the C-64, the former 
is generally not a problem. Unless 
you plan on assembling some large 
memory arrays, the power consump- 
tion is not significant either. 

ADDING MEMORY 
TO THE C-64 

The Commodore 64 was specifi- 
cally designed to allow for consider- 
able memory expansion. This may 
seem a bit odd in light of the multi- 
ple memory layers which already fill 
parts of the computer's memory space. 
Nevertheless, every time a cartridge 
is plugged into the expansion port, 
memory is added to the computer. 

For most game cartridges, this 
memory amounts to another eight or 
sixteen kilobytes of program on ROM . 
Generally, these cartridges are not 
true memory expansions. What ac- 
tually occurs is a replacement of in- 
ternal RAM and ROM by what is 
contained in the externa! cartridge. 
Most cartridges utilize only a small 
portion of the existing RAM. Thus 
a game cartridge can best be consid- 
ered as turning the C-64 into a dedi- 
cated game machine while it is in 
place. 

Some cartridges add to the C-64 
memory resources. The Super Ex- 
pander cartridge from Commodore 
contains eight kilobytes of ROM. 
When it's installed, the BASIC of the 
C-64 is enhanced by a set of graph- 
ics and sound commands. At the 
same time, eight kilobytes of BASIC 
RAM is hidden under the external 
ROM reducing available program 
space. The Super Expander cartridge 
does not waste this hidden RAM. It 
is utilized for the bit mapped graph- 
ics associated with the added BASIC 
commands. 

Perhaps the most ambitious expan- 
sion of C-64 memory to date in a fin- 
ished product is implemented by the 
Comal 2.0 cartridge. This contains 
the latest version of the Comal lan- 
guage on 64 kilobytes of ROM. As 
if this was not enough, an empty soc- 
ket is provided on the board for an 
additional chip with a capacity for up 
to another 32 kilobytes. 

The all-time prize for user expan- 
sion goes to the Jason-Ranheim Com- 



pany, who make an eight-socket 
board which can accommodate up to 
256 kilobytes of external ROM. 
Memory expansion need not be re- 
stricted to ROM. Additional RAM 
can be added to the expansion port. 
This is just the approach taken by the 
R. J. Brachman Co. with their CBUS 
II cartridge. We will be looking at 
both products later in this article. 

HOW IT IS DONE 

The designers of the Commodore 
64 provided for all this expansion by 
building considerable flexibility into 
the cartridge port. To actually see 
how this is done, we will have to dig 
a little deeper. There are two primary 
devices which control the memory 
configuration of the C-64. 

The first is a six-line I/O port built 
into the 6510 microprocessor. The in- 
ternal hardware of the 6510 places this 
port at memory address 1. Its associa- 
ted direction control register is loca- 
ted at address 0. 

The second device is a custom de- 
signed integrated circuit, the Pro- 
gramable Logic Array (PL A). This 
chip is a collection of electronic 
switches (as are all logic devices) de- 
signed for the express task of man- 
aging the memory configuration re- 
quirements of the C-64. Internally it 
is responsible for the sharing of mem- 
ory between the 6510 and the 6567 
VIC II chip. Externally it is the con- 
trol device for the expansion port. 

The expansion port can best be de- 
scribed as a full microprocessor bus. 
It brings to the outside world the en- 
tire set of eight data lines and sixteen 
address lines of the 6510. In addition, 
there are several control lines which 
are associate d with the PLA. Two of 
these li nes, EXROM (pin 9) and 
GAME (pin 8), are hardware inputs 
to the PLA. These are normally held 
to a logical one represented by +5 
volts in the C-64. The horizontal line 
over their labels indicates that their 
intented logical function is imple- 
mented when they are set to a logical 
zero or volts in the C-64. 

When a cartridge is plugged into 
the expansion port, one or both of 
these lines are grounded. This caus- 
es some of the internal memory of 



the C-64 to be replaced by whatever 
is in the cartridge. The affected mem- 
ory areas are the eight kilobytes of 
RAM from $8000 to S9FFF (32768 
to 40959). The eight kilobytes of 
BASIC ROM from $A000 to $BFFF 
(40960 to 49151) and the eight 
kilobytes of KERNAL ROM from 
SEO00 to SFFFF (57344 to 65535). 
These lines work in conjunction with 
two output lines at the port, ROML 
(pin II) and ROMH (pin B). The for- 
mer addresses in the eight kilobyte 
$8000 block, while the latter controls 
either the SA000 or the $E0O0 block. 
The effect of all four of these lines 
can be further modified by the 6510 
I/O control port at address 1. This 
can be used to switch between ROM 
(either internal or external) and the 
built-in RAM that occupies the same 
address space. Some cartridges ex- 
ert direct control of the hardware 
memory configuration by placing 
electronic switches at the EXROM 
and GAME lines. These "soft switch- 
es" are accessed by selecting a par- 
ticular address for their control. Ad- 
ditional RAM or ROM can be 
switched in or out. usually in eight 
kilobyte banks, by installing addition- 
al control logic on the cartridge. This 
is the technique used by the Comal 
cartridge mentioned above. 

SOME PROM 
APPLICATIONS 

Most of us are familiar with the 
dozens of games and applications 
programs available in cartridge forms, 
The C-64 and VIC 20 offer other 
possibilities for custom ROMs. These 
range from changing the character 
set to direct modifications to BASIC 
and the operating system. The default 
language could even be changed. 
How about a C-64 that understands 
FORTH or PASCAL? Think of all the 
possible applications for dedicated 
autostart programs. This would allow 
the computer to be used as an unat- 
tended control device without the 
need for a disk drive or cassette deck. 
The list is endless. The three reviews 
that appear on the succeeding pages 
present some interesting products 
which offer some unique ideas of 
their own. □ 



THE PROMENADE 
PROM DEVELOPMENT 
SYSTEM 



Jason-Ranheim 



580 Parrott Street 



San Jose, CA 95112 

Phone: 800-421-7731 
(in CA 800-421-7748) 



According to Webster's New World 
Dictionary, to "promenade" is to "go 
for a walk." According to the Jason- 




The Promenade inside and out. The 
4 x 5" package installs in user port. 




Top: the PCC-8 board; bottom left: 
the PCC-4; bottom right: the PCC-2. 
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Adaptor that converts a 28-pin 2764 to 
24-pin fonnat compatible with 64 & VIC 

Ranheim Company, the Promenade 
model CI is the heart of a ROM pro- 
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ISSUE #1-JAN. "84 $4,00 

64 v, the Pcunut! Telecommunications! 
Talcs of the Commodore! And readj 
Do enter Mulii Draw 64 Graphics Svs 

tem! Interrupt Music Maker Editor' A 
Peek at Memory' Sequential Files! 



ISSUE #2-FEB. '84 $4.00 

Illustrated tour of the 1541! Artificial 
intelligence! Synapses Ilior Wfotosen- 
|co interviewed! And ready to enter: 
Music Maker Part 11! Screen Manip- 
ulation! Night Attack! Relative Files! 



ISSUE #3 -MAR. '84 $4.00 

Anatomv of the 64! Printer interfac- 
ing for VIC & 64! Educational soft- 
ware series begins! And ready to en- 
ter: Address Book! Space Lanes! Ran- 
dom Files on the 64! Dvnamic Power! 



ISSUE #4 -APR. '84 $4.00 

Petspeed and Easy Script tutorials! 
Printer interfacing continues! Laser- 
disc! And ready to emer: Apple Pie! 
Lunar Lander! Name that Star! Low- 
ercase descenders on the 1525 printer! 



ISSUE #5 -MAY '84 $4.00 

Future of Commodore! Inside BASIC 
storage! Memory management on the 
VIC & 64! Guide to spreadsheets! And 
ready to enter: Math Master! Air As- 
sault! Biorhythms! VIC Calculator! 



ISSUE #7- JULY '84 $4.00 
MSI) dual disk drive! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Users Groups! 
And ready 10 enter: Renumbering! 
Checklist! Math Defender! Brisk! 



ISSUE #8-AUG. '84 $4.00 

Choosing a word processor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! The Terrible Twins! 



ISSUE #9-SEPT. '84 $4.00 

Program your own text adventure! 
Buitd a C-64 cassette interface! Vid- 
eo RAM! And ready lo enter: Salvage 
Diver! DOS! Sound Explorer! The 
Castle of Darkness! Base Conversions! 



ISSUE #10 -OCT. '84 $4.00 

C-64 graphics programs! Bit-mapped 
graphics! Joystick programming! And 
ready lo enter; VIC 40 Column Op- 
erating System! BAM Read & Print! 
Emerald Elephant! Lawn Job! 



ISSUE #12 -DEC. '84 $4.00 

Buyer's guide to printers! 1525 printer 
tutorial! Custom characters! User 
Guide to KMMM Pascal! Diving into 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Ref! 



ISSUE #13 -JAN. '85 $4.00 

VIC/64 OS exposed! Sprites! 1541 de- 
vice ft disconnect switch! Ghostbusters! 
And ready to enter: Ultra Mail! Music 
Tutor! Alice in Adventureland' Mid- 
print! To the Top! Tape/Disk Transfer! 



ISSUE #14- FEB. '85 $4.00 

Printer interfacing! Multicolor sprites! 
Modems! Bulletin boards! Theory of 
game design! And ready to enter: Fu- 
turewar! Fontasia! VIC Eraser! Insur- 
ance Agent! Flankspeed! Telelink 64! 



ISSUE #16-APR. '85 $4.00 

Assembly language column begins! 
Programming the joystick! 1541 disk 
drive alternatives! And ready to enter: 
Hop Around! Faster 64! Booter! Ele- 
check! BASIC Trace! Space Hunt! 



ISSUE #17- MAY '85 $4.00 

Disk drive enhancements! Install a re- 
set switch! Assembler escapades! And 
ready to enter: Super Duper! Two-Col- 
umn Directory! DSKDU! Raid! DOS 
Plus! Font Editor! Tile Time! 



ISSUE #6- JUNE '84 $4.00 

Game programming column begins! 
Program generators! Rupert on input- 
ting! Memory management continues! 
And readv lo enter: Post Time fur the 
64 & VIC! Alpiner! Sound Concept! 



ISSUE #11- NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: PTE word processor! 
Block Editor! Alternate Character Set 
for the 64! The Tunnel of Tomachon! 



ISSUE #15 -MAR. '85 $4.00 

Making multiscreen gameboards! In- 
side the Plus/4! Commodore DOS! 
And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line 
Nos.l Home Budiicl! Salmon Run! 



ISSUE #18 -JUNE '85 $4.00 
Music & graphics entry systems! How 
modems work! Inside the 6510! And 
ready to enter: Quad-print! Mapping 
44! Towers of Hanoi! Speedy! Duck 
Shoot! The 6510 Simulator! 



Use coupon or facsimile. If or- 
dering more than three issues, 
list choices on separate sheet. 

If you have a modem and want 
more complete information on 
any of the back issues listed, 
call AhoyPs Bulletin Board Ser- 
vice at 718-383-8909. 
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gramming system for use with the 
Commodore 64 or the VIC 20. 
Stand-alone ROM programmers are 
relatively expensive items. Much of 
the expense resides in supplementary 
hardware requirements. These in- 
clude memory for data and control 
program storage, a controlling micro- 
processor, and ol' course a power sup- 
ply. The Promenade utilizes the ex- 
isting facilities of the computer to cre- 
ate a very effective ROM program- 
ming environment. The capabilities 
of a Promenade with a C-64 or a VIC 
20 and a 1541 disk drive actually ex- 
ceed those of more expensive dedi- 
cated units. That includes the cost of 
the computer and disk drive. 

VIC 20 users take note. The Prom- 
enade system will function properly 
without any memory expansion. 
However, programming ROMs which 
exceed the memory capacity of the 
unexpanded VIC 20 will be some- 
what inconvenient. A minimum of 
eight kilobytes of expansion RAM is 
recommended . 

THE HARDWARE 

The Promenade itself is a slim 4 Vi 
x 5" package in a brushed aluminum 
case. In use, it is installed in the com- 
puter's user port. The lop surface of 
the Promenade is dominated by the 
28-pin zero insertion force (ZIF) dual 
in line package (DIP) socket flanked 
by green, red, and yellow indicating 
lights. These light emitting diodes 
serve to indicate the status of the sys- 
tem at all times. The first (green) 
simply displays the presence of pow- 
er to the Promenade. The second 
(red) indicates when the ZIF socket 
is energized, such as during a ROM 
read operation. It also serves as a 
warning not to insert or remove a 
PROM\vhen it is lit. The third (yel- 
low) alerts the user to a ROM pro- 
gramming activity. It also flashes 
when some kind of programming er- 
ror takes place. 

THE OPERATING 
SYSTEM 

The PROMOS software, supplied 
on either cassette or disk, makes 
the reading and programming of 
PROMs a snap. PROMOS h de- 
signed to let the user work with a 



PROM in a fashion which is very 
similar to using the cassette or disk 
drive. In fact, PROMOS assigns de- 
vice number 16 to the Promenade. 
When activated. PROMOS behaves 
very much like a DOS wedge. It 
makes full use of the computer's op- 
erating system. Programs can be 
LOADed'and SAVEd. Files can be 
OPENed and CLOSEd. Data can be 
written with the PRINT* and CMD 
commands and retrieved via the 
GET# and INPUT# commands. 
There is even a directory command, 
the dollar sign (S), which returns the 
contents of the ROM. 

PROMOS reserves part of the 
ROM space for the directory infor- 
mation. Unlike the disk drive, the 
PROMOS directory is spread out 
through the ROM with the associated 
files. A series of links, similar to 
BASIC'S internal line links, keeps 
track of each file's relative position. 
Complete details of the PROMOS file 
structure are included in the twenty- 
page manual. 

The PROMOS file-oriented oper- 
ation requires the presence of the 
Promenade to function. This limits 
the capacity of the PROM filer to 
what can be stored in a single chip. 
The Promenade can handle chips 
with a capacity of up to 512 kilobits 
(64 kilobytes). As mentioned earli- 
er, chips with this capacity are still 
quite expensive. Thus most users will 
limit themselves to eight or sixteen 
kilobytes of online storage. A useful 
enhancement to PROMOS would ex- 
tend this file-structured operation to 
the PCC-2, -4, and -8 expansion 
boards discussed below. This en- 
hancement would allow for the crea- 
tion of a ROM disk with up to a quar- 
ter megabyte capacity. 

PROMOS also includes two direct 
memory commands, the Greek letter 
pi and the British pound symbol. 
These allow for the direct bidirection- 
al transfer of data between the com- 
puter's memory and the PROM. The 
command syntax is very similar to 
that used by most machine language 
monitors. PROMOS has been de- 
signed to be highly compatible with 
most machine language monitors. 
The commands will generally work 
from within a monitor, although an 



occasional question mark indicating 
a monitor syntax error does appear. 
The solution is usually just to reis- 
sue the command. The manual rec- 
ommends Hesmon for use with 
PROMOS. A cartridge-based version 
which includes PROMOS and a DOS 
wedge is available for $24.95. We 
found that PROMOS seemed to work 
well with Micromon, a very power- 
ful public domain machine language 
monitor. 

The Promenade has enough built- 
in flexibility to handle a large vari- 
ety of EPROMs of varying capacities 
and types. PROMOS accepts two par- 
ameters which allow the system to 
distinguish among the various types 
of EPROMs. The "control word" 
number tells the operating system 
which type of EPROM is being used. 
The manual lists 23 PROM types, to 
which the 27512 has recently been 
added. This includes the 48016P. 
which is an electrically erasable de- 
vice (EEPROM) for which PROMOS 
includes a special erase command. 

The second parameter lets 
PROMOS optimize the programming 
operation. The Program Method 
Word (PMW) selects from four 
methods of PROM programming. 
One is based on the chip manufac- 
turers' recommendations. The other 
three are "intelligent" methods which 
optimize programming time. The 
method developed by Jason-Ranheim 
uses a series of increasingly longer 
pulses till the data has been verified. 
Thus for an eight kilobyte ROM. 
which would normally take seven 
minutes using the standard method, 
we found programming times as short 
as 30 seconds with the Jason- 
Ranheim method. 

PROMOS was kept as brief as pos- 
sible to minimize its memory re- 
quirements. The code is fully relocat- 
able by simply changing the top-of- 
memory vector before RUNning it. 
This brevity does leave the program 
open to operating problems. Under 
some conditions it is possible to crash 
the program while all of the Prom- 
enade lights are still on. If a. PROM 
is in the socket, damage to the chip 
might result. A hardware protect 
switch to disable the socket could be 
a useful addition. 
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OTHER SUPPORT 
PRODUCTS 

Jason-Ranheim offers several cir- 
cuit boards for installation in the 
computer expansion port. A VIC 20 
board (PVC-2) and a C-64 board 
(PCC-2) priced at $6.95 each support 
up to two eight-kilobyte ROMs. For 
the VIC 20, any one of the four eight- 
kilobyte expansion blocks can be 
used. The C-64 board uses the two 
eight-kilobyte blocks located at $8000 
to $BFFF. Instructions are provided 
on how to store a BASIC program in 
ROM which will autostart when the 
computer is turned on. Two program 
listings are provided, one which 
RUNs the program from cartridge 
memory and the other which down- 
loads the program to the usual BASIC 
memory space before RUNning. 

Also available are two additional 
bank switching circuit boards. The 
PCC^l ($19.95) will accommodate up 
to four ROMs with either an eight-, 
sixteen-, or thirty-two kilobyte capa- 
city for a total of 128 kilobytes of add- 
on memory. This memory will ap- 
pear in eight-kilobyte bank switched 
chunks at the $8000 block. The bank 
select register can be located at ei- 
ther SDFFF (57343) or $DEFF 
(57087). Any eight-kilobyte bank or 
none at all can be switched in or out. 
The PCC-8 ($29.95) is similar, ex- 
cept eight sockets are provided for up 
to 256 kilobytes of external ROM. 
Complete instructions are included, 
along with a DOWNLOAD/RUN pro- 
gram for installing up to 38 kilobytes 
of program with an autoboot routine 
in ROM. 

Before you go running off with vi- 
sions of putting all your favorite ap- 
plications in nearly instantaneously 
bootable form, keep several things in 
mind. Most commercial software is 
copy protected and in machine code. 
It will require a fairly knowledgeable 
user and some time to extract the pro- 
grams and put them into the proper 
format for use with this method. So 
if you have the programming capa- 
bility this presents an excellent way 
to get your favorite word processor, 
spreadsheet, and database all online 
at one time. 

No PROM programming system 
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would be complete without some 
means of erasing a previously pro- 
grammed PROM. Jason-Ranheim 
does not make an ultraviolet eraser 
of their own, but they will supply 
"hobbyist" and "industrial" versions 
of these devices for $34.95 and 
$79.95 respectively. 

CONCLUSIONS 

The Promenade is a good general 
purpose PROM programming sys- 
tem. Some unique support products 
make it very attractive to the mod- 
erately advanced user. The built-in 
hardware and software flexibility, 
coupled with some excellent techni- 
cal support, make it a good choice 
for turning the C-64 or VIC 20 into 
a PROM development system. 

The Promenade is available for 
$99.95 with the supporting software 
on tape or disk. □ 

ADDENDUM 

Jason-Ranheim is continuously 
coming up with new uses for the 
Promenade. As we went to press we 
received word of a new four-socket 
expander board (PRB-4) similar to 
the PCC-4. The PRB-4 is designed 
to accommodate two eight-kilobyte 
PROMs and two eight-kilobyte RAM 
chips. An onboard battery backup al- 
lows the RAM to retain data after the 
C-64 has been turned off. According 
to John Ranheim, president of the 
company, the PRB-4 is being used as 
an aid for educating the homebound 
handicapped. An examination is pro- 
grammed into the PROMs. The stu- 
dent's answers are stored in the 
RAM. The battery backup retains the 
data for subsequent grading under 
computer control. Price is $24.95. 

CBUS I & II: 

THE CARTRIDGE BACKUP SYSTEM 



F U. Brachman Associat es 

P.O. Box 1077 

Havertown, PA 19083 
Orders 1-800-CBUS-C64 
info 215-622-5495 



The CBUS (Cartridge BackUp 
System) is a product which will un- 
doubtedly evoke considerable contro- 



versy. It is marketed with the primary 
intent of allowing a user to copy and 
use the software which is stored in 
the ROM chips of a Commodore 64 
program cartridge. This attitude. 
while probably reflective of good 
marketing sense, is somewhat unfor- 
tunate. As we shall see, the CBUS 
package does have a valid purpose in 
the C-64 scheme of things. 

THE HARDWARE 

CBUS is primarily a hardware ac- 
cessory. The total system consists of 
two parts available separately or as 
a package. 

The CBUS I is essentially a sin- 
gle slot expansion port extender 
board. This in itself is unremarkable. 
What makes the CBUS I unique is 
the inclusion of an eight position DIP 
switch. There is also a reset push but- 
ton which does come in handy at 
times (see the May '85 Ahoy! for 
more on reset buttons). The DIP 
switches intercept the four cartridge 
control lines which were described 
in the introduction to these reviews. 
By properly manipulating these 
switches, the particular configuration 
of nearly any 16 kilobyte cartridge 
can be determined. Once this is 
known, the cartridge contents can be 
downloaded to disk. This can easily 
be done with a machine language 
monitor or with the custom program 
listed in the manual. 

Once on disk the cartridge can be 
dispensed with. The program can be 
then loaded into the C-64's resident 
RAM and RUN from there -well, al- 
most. As it turns out, very few car- 
tridge-based programs are directly 
amenable to this sort of treatment. 
For various reasons, most cartridge 
software will require some modifica- 
tions to RUN in this fashion. Since 
these programs are nearly always 
written in machine language, this task 
is not for the uninitiated. A select 
number of cartridges cannot be so 
converted, as they utilize the under- 
lying RAM which shares their pro- 
gram space. 

This is where CBUS II comes into 
the picture. Although it physically re- 
sembles the typical cartridge which 
it is intended to replace, internally 



there is a world of difference. In place 
of the expected ROM. the CBUS II 
contains sixteen kilobytes of static 
RAM. To complete the picture, the 
CBUS II contains a hardware "per- 
sonality latch" which allows the RAM 
to emulate any of seven possible 16- 
kilobyte cartridge configurations 
which are available for the C-64. 

To complete the picture, a program 
listing is included with the documen- 
tation which will LOAD in a car- 
tridge "snapshot" and configure the 
personality latch accordingly. Once 
loaded, the cartridge program can be 
started by locking the latch with the 
RUN/SET switch and then hitting the 
cartridge reset button. 

THE DOCUMENTATION 

Each of the CBUS modules come 
with its own instruction manual. The 
CBUS I manual provides a thorough 
description of the various cartridge 
configurations. Included are complete 
instructions on how to identify a car- 
tridge with the CBUS I. Two brief 
programs are listed which allow you 
to create a menu-driven disk-loaded 
version of all your cartridges. The 
manual also includes a detailed 
breakdown of all the possible C-64 
memory maps and how they are crea- 
ted. This is one of the most compre- 
hensive discussions we have come 
across on the subject. The interaction 
between the 6510 internal control port 
located at memory addresses and 
1 and the hardware control lines is 
meticulously detailed. 

The description in the CBUS II 
manual is limited to the basic oper- 
ation of the CBUS II cartridge as a 
cartridge emulator. It includes a pro- 
gram listing especially suited to the 
unique hardware of the cartridge. 
Both manuals include source code 
listings of the machine language por- 
tions for reference purposes. For ad- 
vanced users, a full description of the 
CBUS II operation is included in the 
optional Technical Manual, along 
with a brief discussion on using the 
CBUS II as a cartridge program de- 
velopment tool. 

Several pamphlets were included 
with the package. These appear in a 
newsletter format. They deal with the 



specific nuances of particular car- 
tridges for working with the CBUS 
system. One pamphlet lists the CBUS 
classifications for 75 commercially 
available C-64 cartridge programs. 

The entire package is intended to 
let the average user copy and run car- 
tridge-based software. The CBUS I 
and II manuals include detailed pro- 
cedures on the proper use of their re- 
spective hardware and software. 

As we went through the manuals, 
one area for improvement became 
evident. The largest manual was a bit 
over twenty pages. There was con- 
siderable amount of duplication of in- 
formation across all three manuals. 
A significant percentage of each man- 
ual consists of overhead such as in- 
troductions, tables of contents, and 
copyright and warranty notices. We 
feel that both manufacturer and end 
user would benefit if the manuals 
were consolidated into one book. 
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CBUS-l allows the user to examine the 
contents of any Commodore 64 cartridge. 
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CBUS-ll contains 16 kilobytes of static 
RAM with cartridge emulation circuitry. 



THE SOFTWARE 

If you opt for CBUS I Deluxe or 
the complete package, you will get 
all of the appropriate software on 
disk. This includes a menu genera- 
tor program for use by either of the 
loader programs. Also included are 
two versions of Jim Butterfield's Su- 



perman and a Mini-Monitor designed 
specifically for use with the CBUS 
package. The latter is a hybrid of ma- 
chine language and BASIC. Overall 
we found the provided support pro- 
grams to be effective but lacking in 
polish. But then again, their brevity 
is considered a virtue for this particu- 
lar application. 

WHAT IT'S GOOD FOR 

The manufacturer places primary 
emphasis on the benefits of transfer- 
ring cartridge software to disk. The 
saving of wear and tear on the car- 
tridge port is one case in point. Ad- 
ditional benefit is to be obtained by 
the reduction of storage requirements, 
as several cartridges can be kept on 
one disk. Also touted was the con- 
venience of being able to load pro- 
grams directly from disk. We leave 
the evaluation of these considerations 
to the end user. We did feel that being 
able to rapidly swap cartridges held 
the edge in convenience. 

We would have liked to see addi- 
tional emphasis placed on the capa- 
bilities of the CBUS II as a cartridge 
development system. In this light, it 
would make an ideal companion to 
cither of the ROM programmers in 
the accompanying reviews. Being 
able to try out a cartridge-based pro- 
gram in a total cartridge emulator 
without the need to continuously 
erase and reprogram a ROM is a con- 
venience worth looking into. 

Although the CBUS II cartridge in- 
cludes sixteen kilobytes of RAM, do 
not expect to use it as expansion 
memory. The design of the CBUS II 
and its associated personality latch 
prevents simultaneous read and write 
operations to its RAM. The hardware 
can be configured to store data into 
the RAM or to read the data from it, 
but not both. To engage in two-way 
communication with CBUS II, your 
software would have to continuously 
reconfigure the personality latch. 

CONCLUSION 

The CBUS is an effective tool for 
manipulating cartridge firmware. The 
CBUS II is a valid cartridge devel- 
opment tool as a total cartridge emu- 
lator. If you already own an expan- 
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sion chassis for your C-64, then you 
may consider adding the CBUS I 
switches yourself. Although it does 
involve some soldering and cutting of 
printed circuit traces, it is not an over- 
whelming task. CBUS I sells for 
S34.95. CBUS II is $84.95. An ad- 
ditional S15.00 gets you CBUS I De- 
luxe, with the associated software on 
disk. The entire package can be had 
for $119.95. □ 

CARTRI DGE-MAKER-64 : 

EPROM PROGRAMMING FOR- 
THE MASSES 



Custom Programming Group 
47 Marchwood Road-Ste. 2A 

E xton, PA 19341 

Phone: 215-363-8840 



The Cartridge-Maker-64 system 
simplifies EPROM programming so 
that anyone can do it. The entire chip 
selection process, along with the need 
to handle individual chips, has been 
eliminated. This operational simpli- 
city does have its limitations. The sys- 
tem is designed to program only one 
type of EPROM, the 64 kilobit (eight 
kilobyte) 2764. 

THE HARDWARE 

A complete Cartridge-Maker-64 
system consists of four components: 
the Cartridge-Maker-64 itself, a car- 
tridge eraser, a blank Cartridge-64. 
and the user manual. These are avail- 
able as a complete kit or as individ- 
ual components. 

The central component is the Car- 
tridge-Maker-64, an EPROM pro- 
gramming module designed to pro- 
gram one or two type 2764 EPROMs. 
This 4 x 6 x \W module fits into the 
computer's expansion port. An edge 
board connector at the back of the 
module accepts standard Commodore 
64 program cartridges. A three-po- 
sition toggle switch controls the pow- 
er to this connector. The electrical 
status of the connector is indicated by 
a pair of light emitting diodes: a 
green one to indicate the presence of 
power and a red one to indicate pro- 
gramming activity. 

Hidden inside this black box is the 
PROM programming and control cir- 



cuitry. This allows the single switch 
to electrically isolate the Cartridge- 
Maker-64 connector. When the 
switch is in the OFF position, it is 
safe to insert or remove a cartridge 
without turning off the computer. 
Also included in the package is an 
eight kilobyte operating system on 
ROM. This program takes care of all 
the cartridge reading, writing, and 




Cartridge-Maker-64 lets you program 
up to two 2764 EPROMs at one time. 




The built-in ultraviolet light source 
allows you to erase your EPROMs. 




A Cartridge-Maker-64 cartridge. Cen- 
ter: EPROMs installed. Right: bare. 

user interface tasks. The system is 
flexible enough to allow for the com- 
plete programming of a sixteen kilo- 
byte cartridge without the need for a 
disk drive or cassette deck. 

The cartridges designed for use 
with the Cartridge-Maker-64 are sim- 
ilar, but not identical, to commercial 
C-64 cartridges. Each Cartridgc-64 
comes Fitted with a pair of type 2764 
eight kilobyte EPROMs permanently 



soldered into place. The board's cir- 
cuitry is designed to allow the 21 volt 
EPROM programming voltage to be 
applied by the Cartridge-Maker-64. 
The board is also fitted with a six po- 
sition DIP switch for setting Car- 
tridge-64 to any of four standard C-64 
cartridge configurations. These con- 
sist of eight kilobyte cartridges at the 
S8000 or $E000 blocks or sixteen 
kilobytes at the S8000/SA000 or 
S8000/SE000 blocks. The EPROMs 
may be programmed individually or 
in pairs. This allows up to two 
Commodore 64 cartridges to be 
copied onto one Cartridgc-64. 

The Cartridge-Eraser is an ultra- 
violet light source designed to erase 
a Cartridge-64 in less than ten min- 
utes. A safety interlock is built into 
the top of the case to prevent acci- 
dental exposure to the ultraviolet light. 
This light is intense enough to cause 
damage to the eyes. The switch is re- 
cessed inside the top cover well away 
from accidental activation. However, 
it is readily reached by prying fingers. 
Avoid this temptation and keep the 
eraser away from small children. 

Although the hardware is specifi- 
cally designed tor PROM program- 
ming in the C-64 cartridge configur- 
ation, the system can be easily 
adapted for the programming of indi- 
vidual type 2764 PROM chips. A 
bare Cartridge-64 printed circuit 
board is available for $12 . You will 
have to install your own six or eight 
position DIP switch for chip selec- 
tion. Two 28 pin DIP sockets should 
also be soldered onto the board. 
These should be of the zero insertion 
force (ZIF) construction. When com- 
plete you will be able to easily pro- 
gram 2764s, individually or in pairs, 
with the Cartridge-Maker-64 system. 

THE FIRMWARE 

Cartridge-Maker-64 comes with its 
own built-in menu-driven software in 
an autostart ROM. The opening 
menu lets you select the screen col- 
ors. This is followed immediately by 
the main menu with the nine system 
selections. The first of these is the 
Cartridge to Cartridge utility. This 
function will automatically identify 
the original cartridge type and read 
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WaferDrive. 
A New Technology 




Floppy disk 
performance for 
your Commodore 
at audio 
cassette prices. 

Entrepo's QUICK DATA 
DRIVE ' brings high speed 
mass storage to the Commo- 
dore 64 1 ' and VIC 20," De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 

■ Suggested retail price 
under $85 

■ 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

« Can Ik- used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer 
media 



# entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408)734-3133 

Telex 176337 



Reader Service No. 116 



Microirafcr '" is a trademark of Entrepo, Inc. 
Commodore-64'" and VIC 20'" are trademarks 
of Commodore International, Inc. 

198-1 F.NTREPO, INC. 



Master 
Handicapper' 



4 ?jF 



EVALUATES FROM RACING FORM! 



___ cy (Lasl) Speed 

iSiStency Lcnglh Trair 

Earnings Time ot Year Wo*l 

And yves you GRAPHIC REPRESENTATION ol Dm 
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PROGRAM 
GLD. Thoroughbred "Gold"' Edition™ - 

A "FuU" featured thoroughbred analysis designed tor fne proips- 
*onal and serious fiasco S1 59.95 compile 

EGLD. Enhanced 'Gold' EdKron™ 
"Go'd " Edition wflh comprele Master SettorTM system mlegraifd 
onto ihe same disk This powerful program will iranster all hordes 
and scores id the Ml ■rulysn wth a "tingle keystmM 

m.v " :-ii S199.95 c--r ■- 

GLTD. Limited Gold'*™ 

Enarjloe Professional Handlcappert to assign specific valuer id trie 

racing variables ' they" lpp' .iff irnpnrlan.T 

PROFESSIONAL HANDICAPPING SYSTEMS 

Age 5 Conwitencv IS Speed TO 

Class IS Joc»«y 15 Worhouis 

Condition 10 Trainer & Time of Ynnr 

Earning;? 5 Po*l TO Consistency 5 

100% If EvwytftifHj OK |Y/N) 

Create piogram weight Oiwd On t particular track and tin* lune ■( 
to' maximum win percentage This program is deigned itx 'ease 
of use" The use- needs no programming experience. 

(contains Integrated Bettor™' S299.95 compiMe 



GD. Gofd Dog Analysis™ 

The Only pfOle3,SCn,i1 dog hand i tapper on ;he rnar*ei include* 

1) Speed Gi Cnnddion 

2) Post Today 7 r Running Siytfl 
I KnnnE 8) Weighi 

■11 Pqsl Last 9) All new irrle'ral weighing 

5) Distance 10) NEW class 'ndicalor 

II you are near a greyhound Irack. you can t afford ncf to use PM 
: '•' S149. 95 complete 

(with tmegr.v«d Mister E^r^-^'-Vi Si 99.95 



Limited Dog™ 5299.95 



l^5*\ 
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MHH, Master Harness Handicapper™ 
Prrjtesvona! software designed to provide a thorough analysis ol all 
trotter and pace' races in fJnrih America and Canada Features 
Class Post Positions Time finish 

Driver Track Conditions Time Last Quarter 

Days Since Last Tr,< Track Rating 

Gender time '* Temp Allowance 

SI 59.95 complete integrated Master Bettor™ $199.95 

PPX. Professor Jones' Football Predictor. Prof. Pi*™ 
Complete Football Analysis with Data-Base, 
1.1 Overlays 4& "Over'Under" bets 

2) Point Spreads S) Data Base Stats 

3) Super Plays 8j Holds "100 ' teams 
Hlgheil percentage of winner* I9B3 cto, 95 Cf! 

$99 95 w.ih Data Base Manaqnment 
NBA. Basketball™ 

This data base managed analysis witf provide the u5<?r *>5fi All 
betting situations while stO'i'K) relevant .information on the duv 
S99.95 complete w'Manual 5129,95 NBA_CofSege Version 

LOT. LOTTERY ANALYSIS™ 

Stniisiical compan&on program designed to delect subtle pattorriB 

■11 winning lottery numbers 

S79.9S complete w/Manual 599.95 with Lotto 



BROCHURE AVAILABLE 
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the data into memory. You will then 
be instructed in the proper switch set- 
tings for the Cartridge-64. Simply fol- 
low the prompts for switching car- 
tridges and setting the program con- 
trol switches. 

Cartridge-64 will not work with 
cartridges designed for switching be- 
tween external ROM and C-64 inter- 
nal ROM or RAM. These cartridges 
are equipped with onboard hardware 
latches that Cartridge-64 does not 
emulate. 

The next two main menu choices 
deal with the placing of BASIC pro- 
grams into cartridge. This will let you 
create an autostart cartridge without 
any knowledge of machine language. 
When the computer is turned on the 
program will be automatically down- 
loaded into the normal BASIC pro- 
gram area and RUN from there. The 
program can even be STOPed, 
LISTed, and modified as desired. 
BASIC programs in cartridge are lim- 
ited to a maximum length of 8,000 
bytes by the Cartridge-Maker-64 sys- 
tem. The presence of the Cartridge- 
64. which contains the BASIC pro- 
gram, also reduces BASIC program 
space to thirty kilobytes. Placing a 
BASIC program into a cartridge is a 
simple way to create an autostart pro- 
gram which will not require a disk 
drive or cassette deck to LOAD and 
RUN. 

The next two menu choices allow 
for the transfer of data between car- 
tridge and memory. These are the ba- 
sic 2764 programming modes. Loca- 
tions $6000-$9FFF serve as a buf- 
fer area in the C-64. You will have 
to LOAD these buffer areas with the 
appropriate data before using these 
menu choices. 

The next four main menu selec- 
tions deal with the transfer of data 
from disk or tape to or from a C-64 
cartridge. Cartridge-Maker-64 disk 
files are sequential files. Tape files 
are program files. Included in all files 
is information on the original cart- 
ridge type in addition to the program 
data. 

The last menu choice lets you exit 
to BASIC. A simple SYS call will en- 
able you to reactivate the Cartridge- 
Maker program. 



THE MANUAL 

All of the Cartridge-Maker-64 sys- 
tem features are thoroughly described 
in the thirty-page user's manual. The 
presentation is geared to the user with 
a minimum of technical background. 
However, some understanding of the 
C-64 memory structure is needed to 
obtain the maximum benefit from this 
system. Complete details of the Car- 
tridge-Maker file structures, as well 
as descriptions of the various C-64 
memory maps, are included. 

CONCLUSION 

The Cartridge-Maker-64 system is 
certainly an easy-to-use EPROM pro- 
grammer. This ease of use incurs a 
substantial penalty with regard to 
overall flexibility. The system is lim- 
ited at best to the programming of a 
single type of EPROM. Although 
considerable emphasis is placed on 
the copying of cartridges, it is unlike- 
ly that this will be cost effective. An 
entire system, including the eraser 
and programming modules as well as 
a single sixteen kilobyte module, sells 
for $189. Additional sixteen kilobyte 
modules, with EPROMs, are S25 or 
five for $115. The system can be used 
to minimize program development 
times by allowing BASIC programs 
to be placed into cartridges. This stor- 
age medium is suitable for custom 
applications in unattended locations 
where the harsh environment may 
preclude the use of a disk drive. 






AUTHOR'S NOTE 

A machine language monitor 
(MLM) is required to obtain the 
maximum benefit from these 
products. Several excellent MLMs 
are available in the public domain. 
If you have not yet come across 
these programs, I will provide a 
copy of my MLM disk for a $12 
copying and distribution fee. This 
self-documenting disk includes 
Kxtmmon, Micromon, and some 
disk editing utilities. Send your re- 
quest to Morton Kevelson, P.O. 
Box 260, Homecrest Station, 
Brooklyn, NY 11229. □ 
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SPEEDING PIXELS 




Some Assembly Language Help for Bit-Map Graphics 



By Dale W Rupert 



W~ e saw last month that BASIC is very sluggish 
when it comes to manipulating the 64,000 pix- 
els in high resolution bit mapped graphics. This 
month we will develop two assembly language 

routines to help speed things up. The first routine does 
nothing more than clear the 8000-byte bit map memory. 
The second routine performs the calculations necessary 
to locate a pixel on the screen and puts it there. 

When we are finished this month, we will have a some- 
what cumbersome interface to BASIC. We must still 



POKE X and Y values in order to plot the point (X,Y). 
We will not be able to draw lines instantly between any 
two points. But we will have the groundwork on which 
to build other capabilities in the future. We will create 
some very diverse assembly language modules. Conse- 
quently, you may find this article useful as a machine 
language tutorial. 

PRELIMINARIES 

The BASIC program on page 89 (Listing 1) is similar 
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"You've Tried The Rest... 
Now Try The Best!" 



A clever advertising slogan? Perhaps. But we at Artworx have 
found that phrase to apply to our ALLEGRO advanced music 
synthesis program. Most of our registered ALLEGRO 
customers already own at least one of the "better selling" 
music programs for the Commodore 64, So why do they con- 
tinue to spend good money for yet another music program' 
Mostly because the other programs are not complete. They 
may produce nice music, but won't allow that music to be put 
into a computer program; or they have fancy "slider" controls 
for ADSR envelopers but have an impossibly difficult means of 
music entry; or they have fancy joystick controlled note entry 
but don't play worth a darn. Not so with ALLEGRO, 

ALLEGRO IS DIFFERENT 

ALLEGRO is a complete music synthesis program. By that we 
simply mean that ALLEGRO does everything required to obtain 
professional quality electronic music. It does it well, it does it 
easily and it does it intelligently • with no distracting gimmicks 
for the sake of gimmicks. And it does it all on one disk. You will 
not have to spend an extra S35 for a "synthesizer" disk or $25 
tor a disk that allows you to play music from the keyboard. And 
you won't be frustrated by incomplete instructions - ALLEGRO 
comes with over 70 pages of extensive documentation taking 
you from theory to application and all points in between, It even 
contains helpful information on hooking up your stereo to the 
computer and including your music in your own BASIC or 
assembly language programs. One review stated that 
ALLEGRO "-..is a technical work of art. The demo songs are 
truly stunning, the 74-page manual is worth the purchase price 
for its clear discussions of music and digital sound." 

ALLEGRO'S FORTE EDITOR 

ALLEGRO consists Of four parts: the Edilor, the Instrument 
Builder, the Registers Control and the Modulations Control. The 
Editor is used to enter and edit your music. This is accomplish- 
ed using the specially developed FORTE music notation 
language. It is the fastest method of inputting a musical score 
-easily beating out the the best of the joystick controlled "note 
and staff" methods, and very simple to use for modifying or 
correcting your music. With the FORTE editor, you will be able 
to create music that can use up to 85 different instruments in 
one piece, or choose any of the 50 pre-programmed instru- 
ments that come with the program. ALLEGRO gives you the 
widest flexibility in musical range, it handles notes as short as a 
64th triplet and has over 900 tempo settings, Each piece can 
contain over 5800 individual notes (!) and endless repeats. The 
dynamic range spans not only eight audible octaves, but five 
additional sub audible octaves for special effects! 

INSTRUMENTS 

Every music program comes with pre-programmed instruments, 
but ALLEGRO has over 50 ranging from harpsichord to drums 
to bagpipes. Every music program allows you to change instru- 
ments within a piece, but ALLEGRO gives the user the flexibili- 
ty Of selecting any of up to 85 instruments. And any of these in- 
struments can be modified or replaced by another group of 85 
user-defined instruments. Coupled with ALLEGRO'S use of 
registers and modulations (using over 20 oscillators available 
within the Commodore 64). all sorts of unique instrumental 
sounds are at your disposal. 




SPECIAL EFFECTS AND FEATURES 

ALLEGRO'S Registers and Modulations controls give you more 
control over your performance than with any other program 
available, ALLEGRO supports all possible filter and cut-off 
combinations, and resonances too. It provides ring modulator, 
Phaser and heavymetal effects (250 levels) as well as ad- 
justable vibrato and siren effects. It has pulse width sweeps for 
fuzz bass and realistic piano sounds as well as filter sweeps for 
wah-wah and dynamic timbre changes. And once a composition 
has been completed, it can be stored as an interrupt driven 
PASSKEY file which can be called from the user's own program 
by a one line instruction. A PASSKEY file can hold a maximum 
of 41 songs and requires only 4K from BASIC regardless of the 
amount of music that it contains! 

PERFORMANCE FEATURES 

ALLEGRO can turn your Commodore 64 into a real time 
musical instrument allowing you to play along with pre- 
programmed background rhythms directly from the keyboard. In 
fact, you will find that the ALLEGRO keyboard layout is com- 
patible with certain add-on piano style keyboards. There are 
two performance modes: rnonophonic, for playing single notes 
along with a background track, and polyphonic, using three 
voices and simultaneous keystrokes allowing real chords to be 
played. During performance, you will be able to change instru- 
ments, octaves, vibrato, staccato, wan wah and more with just 
one keystroke! 

SUMMING IT UP 

As you can tell, we're pretty keen on this program. It's the 
perfect program for the beginner because of its straightforward 
layout and clear documentation. It's the perfect program for the 
knowledgeable user because of its flexibility and ease of music 
entry and transcription, and it's the perfect (if only) program for 
the professional because of its completeness and capabili- 
ties — it has already been used to create the music for at least 
two best-selling Commodore programs. With ALLEGRO, Art- 
worx has provided all the necessary tools, the ALLEGRO user 
is limited only by imagination. 

FREE OFFER! 

No. ALLEGRO does not come free. It costs $39.95 and if you 
buy it direct from Artworx, it will cost you an additional $2.00 
for postage (and New Yorkers will have to pay sales tax). What 
we will include at no extra cost is an ALLEGRO sampler disk 
containing over 40 musical selections contributed by 
ALLEGRO users. Ranging from baroque to punk, these selec- 
tions provide hours and hours of unique musical composition, 
No. you will not find "Home On The flange" or "Jingle Bells" 
on this disk! There is one catch, however: we must receive 
your order before July 31, 1985. Call toll-free: 1 -{800)-828-6573 
or send check or money order. VISA or MasterCard gladly 
accepted. 
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to the program we discussed last month. To begin, let's 
review the concepts and procedures involved in high res- 
olution bit map graphics. 

The bit map consists of 8000 bytes beginning in RAM 
at location 8192. Each of those 64,000 bits corresponds 
to a specific dot or pixel (picture element) on the screen. 
If a bit is set to one, the pixel is one color, and if a bit 
is reset to zero, its pixel is another color. The screen ap- 
pears as an array of 320 (horizontal) by 200 (vertical) 
pixels. 

The 1000 bytes of normal screen memory from loca- 
tions 1024 to 2023 each store two nybbles of color data. 
The color resolution is 64 bytes. That means each byte 
of color data applies to 64 pixels on the screen. The data 
in location 1024 defines the possible colors for the 64 
pixels in the upper left (eight-by-eight) corner of the 
screen. Similarly, the data in location 2023 defines the 
colors for the lower right corner. There are 16 possible 
colors to choose from, but each eight-by-eight block of 
pixels will consist of any two of those colors. 

Some examples should clarify all this. Assume loca- 
tion 1024 contains the value $24 (i.e. decimal 36— the 
"$" signifies a hexadecimal value). The possible colors 
of the 64 pixels in the upper left corner of the screen 
are red and purple. To understand this, refer to the color 
values listed in Appendix D of the Programmer's Refer- 
ence Guide (PRG) or Appendix G of the User's Guide. 
Red has a value of 2; purple has a value of 4. The hexa- 
decimal number with one nybble of 2 and the other nyb- 
ble of 4 is the value to select the colors red and purple. 

To select light red and light blue for the lower right 
corner, put 174 ($AE) or 234 (SEA) into location 2023. 
Light red has a value of 10 ($A), light blue has a value 
of 14 (SE). The hexadecimal color code is then $AE or 
SEA. To convert to the decimal equivalent, multiply the 
first value by 16 and add it to the second: 16*10 + 14 
equals 174. 

The first color code (most significant nybble) corre- 
sponds to the pixels whose bit map memory bits are set 
to one, and the second color code is for the pixels whose 
bits are reset to zero. 

The chart on page 125 of the PRG shows the rather 
complicated addressing structure of the bit map memory. 
The formulas for locating the correct memory location 
and the bit within that location for a particular pixel are 
contained in lines 400 to 420 of the BASIC program in 
Listing 1. 

We saw last month that to use bit map graphics mode 
we must define the starting location of the bit map mem- 
ory by setting bit 3 of VIC-II register 24. Then we must 
set bit 5 of VIC-II register 17 to enter bit map mode. 
Those functions are performed in lines 40 and 50 of the 
BASIC program in Listing 1. The user-defined functions 
FNSB and FNRB are "set bit" and "reset bit" functions. 
The statements MM=VV+24 : POKE MM. FNSB(3) 
set bit 3 of location MM, where MM has the address 
of VIC-II register 24, 

The program in Listing 1 may be run without creat- 



ing the machine language routines we are discussing here. 
Once you have assembled the two programs with file- 
names CLSCRN.O and PLOT.SC.O and have them avail- 
able on disk, you may delete lines 65 and 265 of Listing 
1. Then the two machine language programs will be used 
instead of their BASIC equivalents. (If you prefer to get 
CLRSCR.O and PLOT.SC.O up and running without as- 
sembling them, we've provided Fkmkspeed listings of 
each on page 89.) 

It takes an interminably long time (roughly thirty sec- 
onds!) for BASIC to clear the 8000 bytes of bit map mem- 
ory using a FOR-NEXT loop. In this type of applica- 
tion, machine language really shines. Let's see what it 
takes to speed up the screen-clearing process— by a fac- 
tor of 135 or more! 

HfOff VOL! SEE IT 

The CLRSCR.O assembler listing puts zeroes into 8000 
consecutive locations beginning at address 8192 ($2000). 
The programs in this article were assembled with the 
Merlin 64 macro assembler. The main differences be- 
tween listings from different assemblers are the assem- 
bler directives, more commonly known as pseudo-ops. 
Pseudo-ops look somewhat like the genuine-ops, the 
mnemonic op-codes of the 6510. Actually they're instruc- 
tions to the assembly itself, not to the processor. 

Lines 6 and 10 through 14 of the CLRSCR.O listing 
contain pseudo-ops. ORG is fairly standard. It tells the 
assembler the ORiGin of the program, that is, where this 
program will reside in memory. The EQU assigns a value 
to a label. In this case, it tells the assembler that a refer- 
ence to PAGE0 actually refers to memory location SFB. 
Neither ORG nor EQU cause any object code to be gen- 
erated. Again, they are instructions to the assembler. 

Assembled Version of CLRSCR.O 



033C: 4C 44 



'J33F: 

0341: 
0342: 
0343: 



0344: 
0347: 
u349: 
034C: 
034E: 
0351: 
0353: 
0356: 
0357: 
0359: 
035B: 
035D: 
035E: 
0360: 
0362: 
0365: 



00 20 
IF 
40 
00 



AD 3F 
85 FB 
AD 40 
95 FC 
AE 41 
A0 00 
AD 43 
36 

91 FB 
DO FB 
E6 FC 
CA 

30 07 
DO F4 
AC 42 
DO EF 



0367: 60 



1 
2 
3 
4 
5 
6 
7 

03 a 

9 
10 

11 

12 
13 
14 
15 
16 

03 17 
IS 

03 19 
20 

03 21 
22 

03 23 
24 
25 
26 
27 
28 
29 
30 

03 31 
32 
33 
34 
35 



* RUPERT REPORT #19 

* HI-RES GRAPHICS 

» CLEAR SCREEN ROUTINE 

ORG S33C 



JMP START 



* 

i'a(;ho 

HASI 
SL0KS 
XTRA 
FIU. 

START 



LOOP 



DONE 



END 



EQU 

DA 

DFB 

DFB 

DFB 



LDA 
STA 
LDA 
STA 
LDX 
LDY 
LDA 
DEY 
STA 
BNE 
INC 
DEX 
BMI 
BNE 
LDY 
BNE 

HTS 



SFB 

$2000 

31 

64 





BASE 

PAGEO 

BASE+1 

PACEO+1 

BLOKS 

#0 

FILL 

( PAGEO), Y 

LOOP 

PAGEO+1 

DONE 
LOOP 
XTSA 
LOOP 



iTBUFFR (828) 



USE 2 BYTES 
SCSNHEM (8192) 
8000-31*256 

+64 
SCRN FILL CHAR 



;BASK I.SB 
;PAGE ZERO 
;BASE MSB 

;K0. BLOCKS 
;256 BYTES 



:NO 
;D0 NEXT 256 
;ASY HOSE? 
;NOPE 
;D0 MORE BLOCKS 
;D0 EXTRAS 
j FILL EXTRAS 

;BACK TO BASIC 



The DA and DFB pseudo-ops, on the other hand, do 
generate eode. The assembler takes the values follow- 
ing each of these and places them in consecutive mem- 
ory locations. DA stands for Define Address, and the val- 
ue following it is stored in the standard "least significant 
byte (LSB) first, most significant byte (MSB) last" se- 
quence. DFB allows the programmer to define one or 
more bytes to be put into memory. Both of these pseudo- 
ops also allow the programmer to assign labels to these 
values, similar to variables and the LET statement in 
BASIC. 

A block of two hundred fifty-six bytes is referred to 
as a page. The eight thousand bytes of bit map memory 
corresponds to thirty-one pages plus 64 additional bytes. 
This routine uses the Y register to cycle from 255 down 
to 0, pointing to individual addresses on a page, while 
the X register keeps track of how many pages have been 
cleared. Once the 31 pages have been cleared, the num- 
ber of extra bytes (64) is loaded into the Y register, and 
those bytes are cleared. Let's look at the details. 

The DA statement in line 11 puis $00 into address 
BASE and $20 into the next location, which is BASE+1. 
For example, when this program is assembled, the JMP 
statement in line 8 consisting of three bytes is put into 
locations S33C, S33D, and S33E (since the ORG was 
S33C). Consequently BASE corresponds to address $33F 
and BASE + 1 refers to address $340. 
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Line 17 (LDA BASE) loads the accumulator with the 
$00 it finds at address BASE. Line 18 puts this value 
into page zero location SFB (PAGE0). Similarly, the val- 
ue at address BASE+1 is put into location SFC by lines 
19 and 20. The X. Y. and A registers are loaded with 
their initial values of 31, 0, and in lines 21 through 23. 
The first statement of the main loop at line 24 decre- 
ments the Y register, so Y now contains $FF. 

The main loop of this program uses indirect indexed 
addressing. This mode of addressing requires that the 
address to be indexed is stored on page zero. That is the 
purpose of lines 17 through 20. We have chosen page zero 
addresses SFB and $FC to store the page address of each 
block as it is cleared. According to page 316 of the PRG, 
addresses SFB through $FE are available to us. 

Indirect indexed addressing is among the more com- 
plicated addressing modes. Let's examine the instruction 
in line 25 of the CLRSCR.O listing; 

STA (PAGE0),Y 

This instruction says to store the contents of the accum- 
ulator at the address which is indicated by the contents 
of the page zero locations PAGED and PAGE0+1, as in- 
dexed by the Y register. Phew!! Let's try this step by step. 

The effective address at which the data in the accum- 
ulator is stored is determined through a roundabout se- 
quence of events. First recall that PAGE0 is a label as- 
sociated with the page zero address $FB, as defined in 
line 10. The processor reads the two bytes stored at lo- 
cations SFB and $FC. Initially these will be $00 and $20 
respectively, as we saw above. These two bytes are in- 
terpreted to be the address $2000. Next, the processor 
takes the value in the Y register (initially SFF) and adds 
it to the $2000. The effective address is consequently 
S20FF. The which is in the accumulator is stored at 
address $20FF. thereby clearing that memory location. 

According to the table on page 417 of the PRG, the 
entire sequence just described takes a grand total of 6 
microseconds. You can see this by reading across the STA 
row to the "(Ind.) Y" column. There you see the hexa- 
decimal value ($91) for this mode of the STA instruc- 
tion. You also see that the instruction consists of 2 bytes 
(#) and requires 6 machine cycles (N). Each machine 
cycle on the Commodore 64 is roughly I microsecond 
(one-millionth of a second). All the address fetching, cal- 
culating, and storing described in the previous paragraph 
takes less than l/160,000th of a second! 

Now that location S20FF has been cleared, the pro- 
gram continues at line 26. The statement BNE LOOP 
means "check the zero flag, and if it's not set, jump to 
the statement labeled LOOP." Let's discuss this concept 
of flag setting and checking. 

pug mm 

The zero flag is one bit inside the processor which 
is updated whenever certain operations are performed 
by the processor. The STA instruction does not cause 



Computer Warehouse Presents: 

THE TWO 
COMMANDMENTS 

THOU SHALT NOT WASTE THOU SHALT NOT WAIT 



At Computer Warehouse you can buy hard- 
ware, software, and accessories for less. Just 
check our prices below for yourself. 

The fact that we're one of the nation's largest 
mail order sources gives us an advantage over 
our competition, and we pass real savings on 
to you. 



We not only sell for less, but we ship out 
your orders within 48 hours. And we even have 
a toll-free number so you can call your orders in 
at no charge. 

Low prices, fast delivery. Computer Ware- 
house. Thou shalt not buy anywhere else. 
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MONITORS 




Special Sheets 




CardcoG + 


S69.95 


1702 Color 


$199.95 


Muldplan 


$59.95 


Cardco B 


$49.95 


Gorilla (green) 


$ 79.95 


Practicalc II 


$49.95 
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Turbo Print 
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SOFTWARE 




Floppiclene Head 




Telecommunication 
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Word Processors 




Cleaner 


$ 14.95 


PRINTERS 

Commodore 801 
Commodore 803 




Paper Clip (w/spelf) 


$74.95 






$159.95 
$179.95 


Word Pro 3 - (64) 

Write Now 

Bank Street Writer 


$39.95 
$39.95 
$45.95 


DISKETTES* 

Computer Warehouse ss/dd $14.95 


(tractor feed option) 
Commodore DPS 1101 

(Daisy Wheel) 
StarSG-10 
Panasonic 1090 
Panasonic 1091 
Citizen MSP-10 


$ 29.95 

$299.95 
$229.95 
$229.95 
$299.95 
$329.95 


Fleet System 2 
Script 64 
Easy Script 

Data Bases 

Superbase 64 


$64.95 
$39.95 
$39.95 

$75.95 


Elephant ss/sd 

Elephant ss/dd 

Maxell MD1 

Maxell MD2D 

SKC ss/sd 

SKC ss/dd 

"Prices per boxes of 10 


1 1 J 3D 

$16.95 
$18.95 
$24.95 
$13.95 
$16.95 


GE 1000 
Axion Elite 5 
(Daisy Wheel) 


S210.95 
$275.95 


The Consultant 
Practifile 
File Now 


$69.95 
$29.95 
$39.95 


WYSE (IBM Compatible) 
Commodore Computers 


CALL 
CALL 


Powertype (Daisy Wheel) 


$339.95 


FCM by Continental 


$59.95 


We also carry a lull line ol Commodore 


1027 


$179.95 


PFSFile 


$59.95 


Hardware Sollware and accessories 



COMPUTER 
WAREHOUSE 

(In FL) 305-274-3680; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

Add 3°s for slupp.ng and handling cnarges Ad prices relied 3°. cash discount Credit card orders should add 3°. Prices sublet to change without nolme- 
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the zero flag to be updated. This is indicated by the "-" 
under the Z in the Condition Codes column on page 417 
of the PRG. This information is repeated in larger letters 
on page 251 of the PRG. 

If you look up the DEY instruction on page 242 of 
the PRG, you will see that the N and the Z flags are 
checked. This means that after the processor performs 
a DEY instruction, it looks at the result of the operation 
and sets those two flags accordingly. The N flag is set 
whenever the most significant bit (MSB) of the result 
is set. ("Set" means "equal lo one") The Z flag is set 
whenever the result of an operation is zero. 

The value of Y was initially 0. and the first DEY in- 
struction decremented it to $FF. Since SFF is not equal 
to zero, the Z flag will not be set. (That is to say, it will 
be reset or cleared.) Consequently, the BNE ("Branch 
if Not Equal to zero") instruction sends the processor 
back to address LOOP. A quasi-BASIC translation of the 
DEY : BNE LOOP instruction pair might be 

Y = Y-l : IF YO0 THEN GOTO LOOP 

Read the description of the BNE instruction on page 238 
of the PRG. Keep in mind that the state of a flag is de- 
termined by the last instruction which affected that flag. 

The three instructions in the main loop beginning in 
line 24 of the CLRSCR.O listing will be executed 255 
times, with Y being decremented from 255 to 1 and ad- 
dresses S20FF through $2001 being cleared. On the 256th 
time that line 24 is executed, Y is decremented to zero, 
thereby setting the Z flag. Address $2000 will be cleared, 
and the conditions for the BNE instruction to branch back 
to LOOP are not met. Execution continues with line 27. 

The page address stored in location PAGE0+1 is in- 
cremented from $20 to $21. Now addresses S21FF 
through $2100 will be cleared. The X register is decre- 
mented in line 28. It is keeping count of the number of 
pages which still must be cleared. Since X is decremented 
from 31. the result is 30 and therefore the N flag is not 
set. The BM1 ("Branch on a Minus result") statement 
looks at the N flag. Results which have an MSB of one 
are considered "minus." Thus $80 through $FF (128 
through 255) are negatives. $00 through S7F (0 through 
127) are positives or "plus" results. 

Since the N flag is not set, execution continues at line 
30. The Z flag is not set (since X was not decremented 
to 0), and line 30 branches back up to the main loop 
to clear the next page of memory. A translation of the 
instructions DEX : BMI DONE : BNE LOOP might be 

X = X-l : IF X>127 THEN GOTO DONE 
IF XO0 THEN GOTO LOOP 

Keep in mind that X is an eight-bit quantity and decre- 
menting it from gives a result of 255. 

On the 31st time the DEX in line 28 is executed, the 
Z flag will be set, since X becomes zero. At this point, 
the 31 ($1F) whole pages from $2000 to $3EFF have been 
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cleared. The BMI instruction in line 29 is still bypassed, 
since X is not negative yet. The BNE in line 30 is also 
bypassed, since X now equals zero. The Y register is 
loaded with the number of additional bytes ($40) to be 
cleared. The page address has already been incremented 
to S3F00 in line 27. 

Now as the main loop is repealed, addresses S3F3F 
through S3F00 are filled with zeroes. Line 28 decrements 
X to $FF, and the BMI instruction sends the program 
to its conclusion. The RTS instruction returns control to 
BASIC. 

HOW FAST? 

The instructions in the main loop must be executed 
8000 times. Is the increase in speed really worth all that 
we've just been through? The results of some simple tim- 
ing tests are very convincing. Clearing 8000 bytes of 
RAM in BASIC using a FOR-NEXT loop require 1766 
jiffies (sixtieths of a second). This machine language rou- 
tine clocks in at a grand total of 13 jiffies, and that in- 
cludes the time required for BASIC to read the object 
code file into memory from the disk. The routine itself 
takes only 6 jiffies once it is in memory. 

Hard to believe, but true. The machine language pro- 
gram is over 135 times faster than BASIC and nearly 300 
times faster if it is already in memory. That's what makes 
assembly language worth it all — aside from being an ex- 
citing intellectual challenge! 

mmm the plot 

We will not go through the second assembly language 
program in as much detail as the first. The purpose of 
the second assembly language program is to process the 
specified values of X and Y and to light the appropriate 
pixel on the screen. Refer to the PLOT.SC.S listing for 
the following discussion. 

The BASIC program in Listing 1 POKEs values into 
memory locations XVAL, XVAL+1, and YVAL for X 
and Y X is a two byte quantity between and 319. Y 
is a one byte quantity from to 199. The first task of 
PLOT.SC.S is to make sure that the X and Y values arc 
in the proper range. If either is out of range, it is changed 
to the maximum value. 

Beginning at line 43, the program evaluates each term 
of the expression 



Z = 320*INT(Y/8) 
/8) + 8192 



+ (Y AND 7) + 8*INT(X 



which we saw last month gives the address of the memory 
cell corresponding to the point (X.Y). Taken a piece at 
a time, the task is not as formidable as it might seem. 
The most difficult problem is to multiply INT(Y/8) 
by 320. The procedure is to first calculate 8*INT(Y/8) 
and to multiply that result by 40. Finding 8*INT(Y/8) 
is simply a matter of dropping off (truncating) the three 
least significant bits of Y. This is done with the state- 
ment in line 52, AND #$FB. The accumulator contains 



the one byte quantity Y. The "#" implies the immediate 
addressing mode. The processor takes the quantity $F8 
and performs the logical AND function between it and 
the accumulator's value, leaving the result of the calcu- 
lation in the accumulator. 

We are using a masking operation here. The three least 
significant bits of $F8 are zeroes and the other five bits 
are ones. ANDing any quantity with zero gives zero while 
ANDing any quantity with one leaves the quantity un- 
changed. Consequently, the five most significant bits of 
Y are unchanged and the three least significant bits be- 
come zero by the operation (Y AND $F8). This is equiv- 



alent to the value 8*INT(Y/8). 

The result is then multiplied by forty. Multiplication 
by powers of two is relatively easy in machine language. 
It amounts to little more than shifting a binary quantity 
one place to the left. Unfortunately, forty is not an even 
power of two. It is equal to the sum of two separate pow- 
ers of two, namely eight and thirty-two. We will use the 
fact that 40*Z equals (8*Z + 32 *Z), where Z presently 
equals 8*INT(Y/8). The result will be a two byte quan- 
tity. The MSB will be in location Z+l and the LSB will 
be in location Z. 

The ROL (rotate left) instruction in line 61 is used to 



KSS 















Assembled Version of PLOT.$C.O 














l 


* 








C04D: 


A5 


FD 




70 


LDA 


Z+2 


LSB 8*Z 










2 


* 


RUPERT REPOR 




C04F: 


2A 






71 


ROL 


A 












3 


* 


ASSEMBLER 


LISTING 3 




CO 50: 


26 


FC 




72 


SOL 


Z+l 


16*Z 










4 


* 


UGH RESOLUTION PLOTTER 


C052: 


2A 






73 


SOL 


A 












5 


* 








C053: 


26 


FC 




74 


ROL 


Z+l 


32*Z 










.6 




ORG 


scooo 


: ; START AT 49152 


C055: 


IS 






75 


CLC 














1 


* 








€056: 


65 


FD 




7& : 


ADC 


Z+2 


LSB. 32*Z+S*Z 


COOO: 


4C 


08 


CO 


8 
9 


* 


JHP 


START 




€05?: 
C05A : 


85 
A5 


FD 
FC 




77 
78 


STA 
LDA 


Z+2 

Z+l 








CTO: 


3F 


01 




SO 


XVAI. 


DA 


319 


;2 BYTE:tSB t MSB 


C05C: 


65 


FE 




79 


ADC 


Z+3 


MSB 32*Z+8*Z 


€005: 


00 






11 


YVAL 


DFB 


l) 


;1 BYTE 


C05E: 


85 


FE 




80 


STA 


Z+3 




€006: 


00 


20 




12 
13 


BASE 
Z 


DA 
EQU 


$2000 
$FB 


; BIT-MAP MEMORY 
;4 BYTES ON PAGE 










81 

82 


* RESULTS IN Z+2<LSB) AND Z+3(MSB) 
*********************** ********* 










14 


* 
















83 


* GET Z = {Y 


AND 7) + Z 


* 










15 


STAR 
















84 


******************************** 










S6 


******** ************************ 


C060: 


AD 


05 


CO 


85 


LDA 


YVAL 












17 


* 


MAKE SURE X < 320 


* 


C063: 


29 


07 




86 


AND 


!?7 


Y AMD 7 










18 


******************************** 


C065: 


18 






37 


CLC 






C008: 


AD 


04 


CO 


19 




LDA 


XVAL+1 


;CHECK XVAL MSB 


C066: 


65 


FD 




88 


ADC 


Z+2 


ADD TO Z 


coos: 


F»J 


13 




20 




BEQ 


OKX 


;0K IF (X<256) 


C068: 


85 


FD 




89 


STA 


Z+2 


LSB 


GOOD: 


A9 


01 




2! 




LDA 


#1 


; X '> 255 


C06A: 


A5 


FE 




90 


LDA 


Z+3 




COOF: 


8D 


04 


CO 


22 




STA 


XVAL+1 


;MAKB MSB=1 


C06C: 


69 


m 




91 


ADC 


#0 .::.: 


ADD CARRY 


C012: 


AD 


03 


CO 


23 




LDA 


XVAL 


;LSB MUST BFX64 


C06E: 


85 


FE 




92 


STA 


Z+3 "":■ 


MSB 


C01 5: 


30 


04 




24 




BMI 


FIXX 


;FIX IF NOT 










93 


******************************** 


C017: 


C9 


40 




25 




CMP 


*$40 


;LSB<64? 










94 


* GET 7. = 8*INT(X/8) + Z 


* 


C019: 


30 


05 




2b 




BMI 


OKX 


;YES 










95 


******************************** 


C01B: 


A9 


3F 




27 


FLU 


LDA 


*$3F 


;USE MAX LSB 


C070: 


AD 


03 


CO 


96 


LDA 


XVAL 


LSB 


COID: 


30 


03 


co 


28 
29 


OKX 


STA 


XVAL 


;N0W XVALO20 


C073: 
C075: 


29 
18 


F8 




97 
98 


AND 

CLC 


#$F8 


8*lNT(X/8) 










30 


****************** * ************* 


C076: 


65 


FD 




99 


ADC 


Z+2 


LSB Z 










31 


* 


MAKE SURE Y < 200 


* 


€073: 


85 


FD 




100 


STA 


Z+2 












32 


******************************** 


C07A: 


AD 


04 


CO 


101 


LDA 


XVAL+1 


X MSB-NO CHANGE 


C020: 


AD 


05 


CO 


33 




LDA 


YVAL 




C071): 


65 


FE 




102 


ADC 


Z+3 




C023: 


10 


OB 




34 




BPL 


f)KY 


;Y < 128 


C07F: 


85 


FE 




103 


STA 


Z+3 ; 


MSB Z 


C025: 


29 


7F 




35 




AND 


«7F 


;Y=Y-128 










104 


******************************** 


€027: 


C9 


48 




36 




CMP 


#$48 


i (200=128+548) 










105 


* GET 7. = BASE + Z 


* 


C029: 


30 


05 




37 




BMI 


OKY 


;Y<200 










106 


******************************** 


C02B: 


A3 


C7 




38 




LDA 


199 


;USE 1 MAX 


CQ81: 


AD 


06 


CO 


107 


LDA 


BASE ■ : 


LSB. 


C02D: 


8D 


05 


CO 


39 




STA 


YVAL 




C084 : 


18 






108 


CLC 














40 


OKY 






;S0U YVAIX20O 


C085: 


65 


FD 




109 


ADC 


Z+2 ; 


LSB 7. 










41 










C087: 


85 


;■;: 




110 


STA 


Z+2 












42 










C089: 


AD 


07 


CO 


111 


LDA 


BASE+1 ; 


MSB 










43 


*===. 


oan*BJ : Jz;c333na----- 


J.: * 


C08C: 


65 


FE 




112 


ADC 


Z+3 


MSB 7. 










44 


* Z= 


.40*{8*ISr(Y/8)) + (Y 


AND 7) * 


C08E: 


85 


FE 




113 


STA 


Z+3 












45 


* 


+ 8*INT(X/8) + BASE 


* 










114 


******************************** 










46 








====»«=* 










115 


* FIND BIT = 


7 - (X AND 7) 


* 










47 


















116 


****+*+*#**********+*****#****** 










48 


******************************** 


C090: 


AD 


03 


GO 


117 


LDA 


XVAL : ; 


\ LSB 










49 


* GET Z = 8* 


NT(Y/8) 


* 


C093: 


29 


07 




118 


AND 


*7 i 


(X AND 7} 










50 


******************************** 


€095: 


85 


FB 




119 


STA 


7. ; 


SAVE IT 


€030; 


AD 


OS 


CO 


51 




LDA 


YVAL 


; TRUNCATE 


C097: 


A9 


07 




120 


LDA 


#7 




€033: 


29 


F8 




52 




AND 


?SF8 


; 3 LSbits 


C099: 


38 






121 


SEC 




NORMAL SUBTRACT 


CO:l 5: 


85 


FB 




53 




STA 


Z 


[WORK AREA 


€09 A: 


B5 


FB 




122 


SBC 


Z ' 


BIT=7-(X AND 7} 


C037 : 


A9 


00 




54 




LDA 


#0 












123 


******************************** 


C039: 


85 


FC 




55 




STA 


Z+l 


;MSB=0 










124 


* SET BIT 


IN LOCATION Z 


* 










56 


******************************** 










125 


******************************** 










57 


* GET Z - 40*Z (2 BYTE QTY.) * 


C09C: 


AA 






126 


TAX 




BIT! IN X 










58 


******************************** 


CO90; 


38 






127 


SEC 




ROTATE CARRY... 


C03B: 


A5 


FB 




59 




LDA 


Z 




C09E: 


A9 


00 




128 


LDA 


#0 


|X TIMES INTO A 


C03D: 


IS 






60 




CLC 






COAO: 


2A 






129 


LOOP ROL 


A 




C03E: 


2 A 






61 




ROI, 


A 




COAl: 


CA 






130 


DFJt 




DONE YET? 


C03F: 


2d 


PC 




62 




SOL 


Z+l 


;2*Z 


C0A2: 


10 


FC 




131 


BPL 


LOOP 


;N0 


C04I: 


2A 






63 




ROL 


;A 




C0A4 : 


85 


FC 




132 


STA 


Z+l 


;SAVE IT 


C042: 


26 


FC 




64 




ROL 


Z+l 


;4*Z 


C0A6: 


AO 


00 




133 


LDY 


JO 


; NO OFFSET 


C044: 


2A 






65 




ROL 


A 




C0A8: 


Bl 


FD 




134 


LDA 


< Z+2), If ; 


GET SCREEN BYTE 


C045: 


26 


FC 




66 




ROL 


Z+l 


:8*Z 


COAA: 


05 


FC 




135 


08A 


Z+l 


;SET PROPER BIT 


C047: 


85 


FD 




67 




STA 


Z+2 


;~LSB 8*Z~ 


COACi 


91 


FD 




136 


STA 


(Z+2),Y 


UPDATE SCREEN 


C049: 


A5 


FC 




68 




LDA 


Z+l 




COAF,: 


■,f. 






137 


END RTS 






C04B: 


S5 


FF. 




69 




STA 


Z+3 


j— MSB 8*Z— 


i 














I 



rotate the LSB of Z which is in the accumulator. The 
most significant bit which falls off the left side of the 
accumulator goes into the carry flag inside the proces- 
sor. The next ROL is performed directly on memory ad- 
dress Z+l. The carry bit is rotated into the least signif- 
icant bit position of Z+l. and all the zeroes in Z+l get 
shifted one place to the left. Notice that the carry bit was 
cleared in line 60 before the process was begun. 

After three repetitions, Z and Z+l store a two byte 
quantity which is eight times its original value. We will 
use this value later so it is copied into locations Z+2 
and Z+3 for safe keeping. Two more repetitions gives 
thirty-two times the original value of Z and Z+l. Lines 
75 and 80 add this quantity to the intermediate values 
at Z+2 and Z+3 and put the results into Z+2 and Z+3. 
thus giving forty times the original value of 8*INT(Y/8). 

At line 113 of the PLOT.SC.S listing, the address cor- 
responding to the pixel at location (X.Y) is stored in Z+2 
and Z+3 (LSB, MSB). Lines 115-122 calculate the proper 
bit value (0 through 7) corresponding to that pixel. 

The final segment of the program at line 124 shifts a 
single one into the proper bit position of the accumula- 
tor. This result is ORed with the value in the selected 
bit map memory location, thereby turning on the pixel 
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at position (X.Y). 

Calling this machine language subroutine to calculate 
and plot each point is still roughly twice as fast as using 
the BASIC subroutine in lines 400 through 430 of Listing 
1 to do the same thing. The program in Listing 1 checks 
the keyboard buffer index after each point is plotted. The 
INKEYS routine does not work in this bit map graphics 
mode, so a more fundamental approach was required to 
interrupt the program. Remember that if the program 
stops in bit map graphics mode, you can blindly enter 
GOTO 300 to return the screen to text mode. Once the 
patterns have been drawn, the program waits for any key 
to be pressed before returning to normal mode. 

The best ways to learn assembly language are to read 
books and magazine articles about it. study examples of 
programs written by others, and (most important) get an 
editor/assembler and use it. Two books that 1 have found 
useful are 6502 Software Gourmet Guide & Cookbook 
by Robert Findley (Scelbi) and Programming the 6502 
by Rod nay Zaks (Sybex). 

We will wrap things up with three challenges you might 
enjoy. First, modify the CLRSCR.O listing so that it fills 
the color memory (1024 through 2023) with a specified 
color code in addition to clearing the bit map memory. 
Second, write a machine language routine to draw a line 
between endpoints specified by the user. (Perhaps start 
with horizontal and vertical lines only.) 

Third, see how quickly you can analyze this bug that 
took me a couple of hours to eliminate. Swap the DEY 
and STA instructions in lines 24 and 25 of CLRSCR.O. 
LOOP is no 1 > the label for the STA instruction. The pro- 
gram still works almost perfectly. In fact, it works fine 
for 7999 of the 8000 bytes. Can you figure out where 
it fails? 

As a follow-up to the March Rupert Report on the DOS 
Wedge. James Borden (Carlisle, PA) sent the following 
additions and a correction. To change the disk drive num- 
ber, type @#d < RETURN > where d is the new drive 
number (8 or 9). You can pause a directory listing by 
tapping the space bar. Pressing it again continues the 
scrolling or pressing < RUN/STOP > stops it. Mr. Bor- 
den suggested that after pressing < RUN/STOP >, you 
may move the cursor up the left column to the line con- 
taining the desired filename and type T, "%" or <up 
arrow > then < RETURN >. That way you may load 
and run a program without having to type its name. (You 
don't have to erase the numbers in the file size column 
either.) Mr. Borden correctly pointed out that entering 
LOAD"W",8:RUN will not automatically load and run 
the program "W". Instead of typing RUN after the colon, 
you must hold the shift key and press the 
< RUN/STOP > key. Thanks for the feedback. 

Until next month, keep those programs speeding along. 
Inject a bit of machine language into them. □ 

SEE PROGRAM LISTINGS ON PAGE 89 
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BRAINFRAME 

An Exercise in Logic for the C-G4 



By Norm Vogel 



Submitted for your approval is a new version of 
the venerable logic puzzle. Mastermind 
CMM")' V . I wrote the original version of this 
program when MM first came out, but since the 

advent of the C-64, it was modified extensively to take 
advantage of the 64's color and sound capabilities. The 
result is Bmmfmme— a program which I feel is superior 
to other versions of this game currently available, and 
not just another number guessing game. 

After the title screen clears, the instructions are print- 
ed. The program then prompts for the number of digits 
to solve (3-5; relatively easy to very hard). When the 
number has been selected, the game begins. 

You input your guess (the RETURN key is not needed 
— if a mistake is made, hit "R" to redo), then the ma- 
chine "thinks" about your entry via changing colors and 
sounds generated by the input. It then prints its evaluation. 
During the game, various prompts and sound effects 
are used; for example, if you haven't gotten the solution 



in 10 tries (on a 3-number game), the program displays 
the message. "You haven't got it YET?!" and gives you 
a "raspberry." 

If the puzzle is solved, "Charge!" is played, along with 
the answer and number of tries, plus an evaluation of 
the game, e.g., "Not bad, but you need more practice!" 
Also shown is a "rating" system whereby you can see, 
for example, how many games you won in five tries. This 
display can handle double digits without getting physi- 
cally larger. It also displays the total number of games 
played and the number of "give-ups." (If the puzzle is 
solved in a remarkably short time, the "give-up" count 
is reduced to zero for the rest of the game.) The game 
then asks for a replay. (Note: if the "number of digits" 
is changed, the "rating system" resets itself.) □ 

SEE PROGRAM LISTING ON PAGE 109 

Mastermind is a trademark of Invicta Plastics. 




For the C-64 

By Simon Edgeworth 



^M ^ j his little program simulates the PRINTAT 
i command of some versions of BASIC. It en- 

ables you to move the cursor anywhere on the 
^^ screen with a single command. 
The main program (lines 10-18) puts a short machine 
language program into memory, starting at location 679, 
and sets the variable AT equal to 679. 

The command SYS AT, followed by two numbers, will 
now move the cursor to any desired location on the 
screen. For example; SYS AT.8.12: PRINT"MARS" will 
print "MARS" starting at line 8, column 12. SYSAT. L,C: 
PRJNT"VENUS" will print "VENUS" starting at line L, 
column C. The demonstration program (lines 2048) gives 
more examples of how the command can be used. 

To use this utility in your own programs, you only need 
lines 10-18. Put them at the beginning of your program, 
and you will be able to use the new command for all 
of vour screen formatting. □ 

SEE PROGRAM LISTING ON PAGE 111 



commodore owners 

DON'T 

THROW YOUR PRINTER OUT! 
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Micro 

DISTRIBUTING. INC 
1342 BHuulc2.i Bullet. N 



You can now custom design 
yout own printer fonts or choose 
from one of the different varieties 
already on the disk. Not only that 
but you can read in any standard 
commodore ASC II sequential 
file and change the typeface. 
All THIS PLUS: 

1 . Mix up to 15 fonts in 
one document. 

2. Design custom Fonts 
including symbols, foreign 
language, math 
symbols ect... 

3. Includes font to give you 
descenders on your 1 525/ 
80 1 printer. 

4. Convert most popular word 
processing files to custom 
fonts. For special effects. 

5. Also includes the signwriter 
64 program to print signs 

and banners aapv " 2 
VISA 



• 201-838-9027 



* Requires 1 525 BO I or any otfwr prime 
graphu , int«l«elMW 150. Iv m* 

l onnci !'<!fi ei I I 
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MERLIN 64 

THE. BEST MACRO ASSEMBLER FOR THECOMMODORE 64 

Easy to use for the beginner or professional, Merlin 64 is 

an extremely powerful macro assembler. 

fust a few of its features include: 

• Fast assembly times 

• Word processor like editor 

• Conditional assemblies. 
Optional assembly to disk 

• Includes Sourceror. an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

• Macro library of common 
operations 

• Cross Ref. utility program 

• 80 column display 
compatibility 

"This is the best assembler I've seen for the Commodore 64. . . " 
Wm. Sanders /Assembly Language for Kids 

.1 can't imagine how it could 

be better." 

{£ A /"X ("YC^ C Peterson /AHOY! Magazine 

tj) *X *S • ^ »J • fius S3.00 Shipping. CA Res. add 6% Sales Tax. 

Ask your local dealer for details, or just write or call: 

' PUBLISHING/ INC 

P.O. Box 582 • Santee, CA 92071 • Telephone: 619/562-3221 




.an outstanding value. 

.95 



^eade^ervice^oT^I^ 



f\jf 



WE RENT 
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commodore 



D 



GAMES AND SOFT WARE 

♦DATABASES & UTILITIES 
♦FOREIGN LANGUAGES 
•ADVENTURE GAMES 
•ARCADE GAMES 



Call toll-free outside Texas: 1-800-433-2938 



WEDGWOOD RENTAL 

5316Woodway Drive 
Fort Worth, Texas 76133 
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FLOTSAM 



Dear Mr. Allikas: 

I have become a recent reader of Ahoy! I must say that 
you do an outstanding job as editor in bringing together 
a variety of informative and practical articles and fea- 
tures. Editorial matter is presented in an interesting man- 
ner with clarity and appeal to the eye. 

You are to be commended for your many contributions 
in making Alioy! a most valuable publication for the Com- 
modore user. Samuel Rabinoff, Principal 

P.S. 207, Queens, NY 

Ordinarily, we'd be too embarrassed to print such an 
overwhelmingly positive letter. But what editor could re- 
sist a letter from his elementary school principal? 

1 have been an avid reader of your magazine since your 
premier issue. I enjoy it very much and get a lot of use- 
ful information from it. 

One objection I have that I feel should be brought to 
your attention are the ads from CVC Online that have 
app^.... .i ilic last few issues. 

I am not a prude or moralist, but I do not think that 
a magazine of this quality is enhanced with advertise- 
ment of this nature. I am sure that the revenue obtained 
by accepting advertisement of this sort will be more than 
lost when circulation decreases due to those that do not 
care to have advertisement of that type put in the hands 
of their children. 

I am taking the time to write, hopefully to encourage 
you to maintain the high quality of your magazine in- 
cluding the advertising that most of your subscribers read. 

Thank you for your consideration of my observation 
and comments. I hope to remain a reader and advocate 
of your magazine. John W. Carino 

Columbia, SC 
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"Sure it's user-friendly! 
Who do you think bought this round?" 
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WIZARD OF IM 



For the C 

By Bob Spirko 



|-w- 1 n a remote corner of the galaxy, the planet Obid 
B is suddenly assailed by a meteor storm. As this 
1 ancient planet hurtles through a swarm of rocks, 
I-'~~ > 1 its greatest city, called Im, is threatened with an- 
nihilation. A city council is hastily assembled and a de- 
cision unanimously struck: send for the Wizard of Im! 
You are the Wizard of Im . Brandishing a magic wand 
that hurls huge fireballs, you set forth to destroy the dead- 
ly cascade of rock and spare the city. Despite your pow- 
ers, however, it remains to be seen if you are quick enough 
to blast the multitude of menacing meteors before they 
fall to earth. 

The Wizard of hn is a colorful action game that re- 
quires lightning reflexes. At first, you'll find it easy to 
demolish the meteors as they fall from the sky, but in 
time the speed and number of rocks increases so that 
you must work frantically to destroy them while at the 
same time keeping yourself from being struck down. 
Since The Wizard oflm is written entirely in machine 
language, you'll need Fkmkspeedto type it in. Run Flank- 
speed (see page 86) and enter the following hexadecimal 
numbers: 

starting address: C000 
ending address: C7 1 F 

Once entered, save the program on disk or tape. Now 
reset your computer and type LOAD"WIZARD OF 
IM",8,1 for disk or LOAD'WIZARD OF IM",1,1 for tape. 
To start, enter SYS 49152. 

The screen will display a brief introduction and then 
the action begins. Use your joystick to move the wizard 
left or right, and press the fire button to release a fire- 
ball. At the bottom of the screen, your score, lives, lev- 
el, and best score are displayed. Each meteor that you 
vaporize will net you a few points or few dozen points, 
depending on the level that you are on. To your credit, 
the occasional meteor will disintegrate of its own accord 
before striking the ground. However, meteors that elude 
your fireballs and reach the earth will cost you points 
(except on the first level). 

As you progress through the levels, the meteors appear 
more often and move faster. In time, the screen becomes 
so congested with hurtling rock that moving the wizard 



safely becomes difficult. You'll notice, too, that some lev- 
els are more formidable than others. This is because the 
value of each rock is increased with each level and then 
reset. This means that some levels will take longer to 
get through than others, but once through these the next 
few levels will be quicker. 

Like all good wizards, you have three lives. Should 
you be struck by a meteor you will lose one life. Thrice 
killed, the action stops and you can start over by press- 
ing any key. During the play itself you can reset the game 
by pressing 17, or you can exist back to BASIC with f8. 
To pause at any time press the SHIFT-LOCK key. D 
£ SEE PROGRAM LISTING ON PAGE 98 



J BridgePro® J 



BridgePro is the first program I've seen that provides a challenge 
for the average-to-excellent bridge player. - The documentation is 
excellent and allows a new bridge player to learn the basics. 
— Harvey Bernstein, Antic Magazine, Feb. 1985 

After having tried three other bridge programs, I find that BridgePro 
is indeed a pro game. . . It is designed for both the beginner and the 
advanced player. . . I didn't find anything that could be improved upon. 
—Helen Garret, Apple-Dayton Journal, March 1985 



II you like to play bridge 
eager to play, this softwa 




and don't have three other players ever- 
re is a must. For bridge freaks it's good 
enough to justify buying a computer 
. . . Whether you are a "master" or a 
beginner, this is great software, 
— Christian Basler. NY 
Commodore Users Group 
Review, Sept. 1984 



BridgePro is designed to let you learn, 
improve, or just enjoy the card game of 
bridge. The program provides com- 
plete bidding, play and scoring for 1 or 
2 players. Features include random 
hands, bidding help, demonstration 
mode, hand replay/quit, best hand, 
auto finish, duplicate mode, and fast 
machine language speed. 



MC CA Residents add S2. 28 Sales Tax 
^ 0sJ Add $2 for COD/UPS 2nd Day Air 
DISK VISA/MasterCard Welcomed 

Commodore 64 • Atari 
Apple II • IBM PC/PCjr 



48 Hour FrBe Shipping 
(415)930-8075 

Computer Management Corp. 

2424 Exbourne Ct 

Walnut Creek, CA 94596 

Dealer Inquiries Invited 
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D-Compiler $ 59.95 



The first D-Compiler to give you back your source code 
after your program has been compiled with 'Blitz. 



'Blitz 11 ■ trid»mul of Skytoi Electric Works 



1541 Super ROM 



$39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 



also Save with Replace is 
Improved 



• Two times faster, Eight times faster 
when used with Turbo 64 which is included 
• No more Drive Head rattling 
during Format or Error Reading • 754 7 Super ROM Is 100% Compatible 




Easily installed in Minutes 



APALLO COPIES IT ALL 



APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package lor the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



Copy Unprotected Disk 
Scratch a File 
Rename a File 
View Directory 



$39 95 



menu options include: 



Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29's. 



D-CODER 



Translates any machine language program into easy- 

lo-read English descriptions with complete explana- 

tions of each command 1 

Makes complete notations of all important memory 

locations accessed by the program 1 (SID VIC. MOS 

KERNAL. etc ) 

Gives you three ways of accessing programs: 

1) Will read and list programs from DISK 

2) Will read and list programs from MEMORY! 

3) Direct usbt input (from magazines, etc.) 

Can be used to locate and examine any machine 

language program's protection routines' 

Can be used to easily break apart machine language 

programs for study and examination! 

Printer option for complete hard copy listings! 

You no longer 
need to be an 
EGGHEAD to 
read Machine 
Language. 



$1995 




N-CODER $19.95 




Ihe machine 
language manipulator. . 

The perlect companion 
program lo D-CODER! 



Allows you to easily make changes in ma- 
chine language programs... right on the disk! 

• Rewrite ability allows code to be altered 
and then rewritten directly to fhe disk! 

• Features sector-by-sector scrolling 
assembly language display of machine 
language programs 1 

• Notation ol ASCII text eguibalents lor easy 
spotting of embedded text strings! 

• Handy reference display of all assembly 
language commands and their ML 
numerical equivalents' 

• Byte splitter for easy splitting of decimal 
addresses into low byte-high byte mat' 



Super Loader 

Super Loader is a Kartndge that plugs into 
your expansion port, that allows the 
computor, on power up start thedisk drive 
and load the first preselected program on 
the disk. 



• Change colors 

• Load wedge 

• Works wiin more drive 

• Takes up no memory 

• Resel switch included 



«Q; 




Only 



$29 



95 




This Disk has over 100 routines, 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 



routines. They can easily be 
incorporated into all of your programs. 
It is also fully documented 



$19.95 



Slik Load 



$ 29.95 



Slik Load is a Kartridge for the C-64. 

Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 

The options include: 

• 6 timaa fatter load • Statu* key will give you information on 

• Eliminate! driva rattle when error* device number, bytes free and status of the 
are encountered. drive. 

• Old and un-new • Silk Load ii also fully compatible with the 
Will restore a basic program 1541 Super Rom 





« 19.95 



DMS-Errors 20. 21. 22. 23. 27 & 29 

Formal Smgla Tracks 

Read Disk Errors 
7, Track RtjKter-reat? and select '-> track 
H Track Formatter-Formal a disk with H 
tracks. This is where trie next protection 
schemes are coming Irom. 
Driva Mon-Disfc Drive assembler/dis- 
assembles For your 1541 
Tha Doc-Disk Doctor that reads code 
tindor e"ors 

Sync Makar-Place a sync mark on any 
track oul to 41 Also usee for protection 



Sync Reader-Check lor Sync tnls on any 

I rack oul to 41 

Chang a Dilva No, -Changes drive 

number (7-30) 

Disk Louoar-Finds starting track sector. 

sian and end addresses 

Dl*k Match-Compare any (wo diskettes. 

Byte for byte 

New Wedge-Easier to use DOS wedge 

ID Check-Check IDs on any track 

Un«ratch-R«store a scratched fife 

ViowBAM Vi-ju.i1 display of the froe and 

used sectors on a diskette 



Read/Write Tea1-1M1 performance lest 
Repair a Track-Repair a track with 
checksum errors Road* code under 
errors and restores track 
Fail Format- Formnt a disk m just 10 
seconds (with verily 1 ) 



This is the only utility 
of its kind. It even has 
a 3 mtn. copy on it. 



WAR GAMES 
AUTODIALER 




T" 



1-Agto Dial witl automahcaliy dial a set of numbers you choose 
2-Revlew Numbers will review numbers that were answered by a computer. 
3-Save Numbers will save numbers where a computer answered 
4^Hardcopy of Numbers will print out list of numbers whBre a computer answered 
5-LOAD Numbers will load in numbers to continue where it left otl 
6-Contrnue will ppek up dialing where it was interrupted 



$29.95 
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3rd 

Edition 



THIRD EDITION! NOW AVAILABLE! 
If you're tired of being harassed by protected software and too many copy 
programs, then this is Ihe book for you' This 224 page manual covers Ihe 
gambit from legalities to protection methods to steo-by-step back up pro- 
cedures Now you can learn both how to protect and unprotect software! 
The techniques covered include copying cartridges lo tape or disk, tape pro- 
tection, and disk protection Disk protection covers error no's 20. 21 . 22. 23. 
27 and 29 plus single track loimamng. header modilication. header swapp- 
ing, hall track reading and writing, reading and writing modified bit densities, 
formatting illegal tracks/sectors. Sync writing and moref The Third edition ex- 
plains, tells how to delect and how lo write them with included software 
Eleven useful utilities and many protection listings 1 Our disk analysis programs 
reveal the protection methods used on your originals A diskette with all soft- 
ware is available for a minimum extra charge This may not be the only book 
your should have for Ihe C-6*. but it is certainly the one book you should 
not be without! 



C64 Book only 

Book & Disk ol all programs 

Vic 20 book Cart 4 Tapes only 



S19 95 US 

S29 95 US 

$9 95 US 



THIS MANUAL DOES NOT CONDONE PIRACY 
■SHIPPING S2.00 



KARTRIDGE KRACKER 

NOW you can own this unique and powerful tool 
which will allow you lo dump the contents ol SK 
and 1SK cartridges onto disk! Bui what's really 
great is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gels YOU INSIDE the cartridge! Put 
all your favorites on disk and get rid of the clut- 
ter- This package provides your with the software 
and hardware needed to get staned. Program on 
disk included (Some cartridges require use of ex- 
ternal RAM not included) 




$44.95 



TOP SECRET STUFF 

All C128 Compatible 



Split Screens (Horizontally) 
Smooth Scrolling 
Save Ram From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Autoboot Maker 
Koala Screen DUmp 
Display GCR 
Fast Disk Eraser 



Protect Scheme For Your Disks 

Write Protect Disk 

Unwrite Protect Disk 

Mini D.O.S. Wedge 

Fast Diskmatcher 

Data Statement Maker 

Unnew 

3 Minute Copy 

D.M.S. 



If you have TSS#1, You'll t4 Q95 

Like This One! All on one disk I %# 



Bulletin Board 

Set up and operate your own bulletin board with one 
or rwo disk drives This one has all the features end 
you Cftn customize il easily yourselt 



. ■ V-v 



1 RUN MEGASOFT-BBS 

2 CREATE MEGA FILES 
3-ADD TO SYSOP S COBNEB 
1 NEW SYSOP S CORNER 
5-READ MESSAGES 

6. SCRATCH MESSAGE 
7 CYCLE MESSAGES 



$5995 BBS 

• Leveled Access 

• Private Message Base 

• Up to 300 Passwords 



8-READ SYSOP MESSAGES 
9-WRITE OPENING MESSAGE 
10 READ LOG 
11 -CYCLE LOG 
12-READ DOWNLOAD FILE 
13-SCRATCH DOWNLOAD FILE 
Id ADD TO OTHER SYSTEMS 
15-CREATE OTHER SYSTEMS 




Expert Mode 

Open Chalk Board for 

Highest Level Access 



Encosr? Casio's Cnecu Money O'rJer of Persona' 
Chech Allow U days 'or delivery 2 10 1 days 'or 
phone ©rriers Canada orders must ue-nUS 
Dollars VISA - MASTER CAFtD COD 

Programs 'Of C-6J S2 0C S ft H on all orders 

Sohware SuOmissions Invited 



s MegaSoft Limited 

L\J£J P O. Box 1080, Battle Ground, Washington 98604 

Phone (206) 687-5116 • B8S 687-5205 Arte- hou's Com D uie'io ComDuter 
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PRINT SHOP 



T~~ he Print Shop from Bro- 
derbund is a multipurpose 
graphic utility which turns 

the Commodore 64 with 

dot matrix printer into an all-purpose 
greeting card, banner, and poster 




generator. It is one of the best thought 
out, easiest to use packages Tve come 
across for the Commodore 64. It is 
so easy to use, in fact, that I was able 
to generate my first greeting cards 
without once referring to the manual. 
The manual, by the way, is a well- 
written, 28 page, 8'/2 x 11" softcover 
book. It does a thorough job of de- 
scribing The Print Shop's numerous 
features. To help get you started, the 
numerous illustrations are a source 
of inspiration. 

WHAT IT DOES 

The Print Shop is a collection of 
integrated programs that will allow 
your Commodore 64 to perform 
many of the services heretofore 
farmed out to your local printery. 
These consist of: 

1. Greeting card generator— turns 
a sheet of paper into a quarter-folded 
missive, complete with messages on 
the front and inside as well as a cred- 

50 AHOY! 



it line on the back (Hallmark, move 
over). 

2. Sign printer— sure to be wel- 
comed by many a small business, as 
it saves hours with a stencil. These 
single sheet displays have become all 
the rage at the local computer fairs 
and flea markets. 

3. Letterhead generator— allows 
you to create fully illustrated custom- 
ized stationery. 

4. Banner printer. 

5. Kaleidoscope generator, com- 
plete with bit map screen dump. 

GREETING CARDS 
GALORE 

The greeting card generator will 
most likely be the first part of this 
package you will try out. As with all 
the routines, a set of menus takes you 
through the entire process. 

First you may choose one of nine 
possible borders or none at all. The 
borders range from simple lines 
through flowers and lattice work. 
Next you may choose a graphic im- 
age to dress up the card. Fifty pic- 
tures and ten patterns are provided on 
the program disk. The graphics may 
be selected by number off the handy 
reference card included with the 
package. If you cannot bear to tear 
your eyes from the screen, the pro- 
gram will prompt you with the names 
of all the prepackaged graphics. If 
none of the provided graphics suit 
your taste, a rudimentary graphics ed- 
itor lets you design your own (more 
on this later). 

If you do select a graphic, you are 
asked to choose from a small, medi- 
um, or large image. If you select one 
of the smaller sizes you will have the 
choice of both layout and number of 



images. Only one graphic may be 
used for a given part of the card. The 
graphics cannot be mixed on the 
same page of the card. The image 
may be used only once, or repeated 
up to 35 times to form a solid back- 
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ground. Different graphics may be 
selected for the front and the inside 
of the card. The large graphic may 
be printed only once in the center of 
the card. 

One of eight font styles are avail- 
able for your message. These fonts 
range from an elaborate Alexia to a 
simple Block style. Individual text 
lines can be printed out in one of two 
sizes using solid, outline, or 3-D let- 
tering with any of the fonts. Fonts 
cannot be mixed on the same page 
of the card, although different fonts 
may be selected for the inside and the 
front of the card. The more complex 
styles take up more space, which lim- 
its the size of the message. The 
amount of text available ranges from 



The Print Shop cannot actually produce full color graphics like those 
shown here— Art Director JoAnn Case just could not resist coloring them 
in. All are reductions of dumps from various Print Shop utilities, includ- 
ing the greeting card generator, the sign printer, and (at bottom of page 
51) the banner printer— the original of which is over five feet long. 



By Morton Kevelson 



Hill ©sni^annig^ra©^ Mtiflfti \ 
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a maximum of 14 lines by 26 charac- 
ters in the single sized Stencil font to 
a minimum of 4 lines by 8 charac- 
ters in the double sized Alexia font. 
Individual lines may be centered or 
left or right justified. 
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The entire creation process is re- 
peated for the inside of the card. The 
final step is an optional fifty six char- 
acter credit line for the back of the 
card. 

Actually, there is no need to fol- 
low the prompts in the order pre- 
sented. The program allows for easy 
movement back and forth through the 
menus. The only thing to watch out 
for is the font selection process. If 
you scroll through any of the larger 
fonts or change the size of the text 
lines, any part of the message which 
no longer fits will be lost even if you 
reselect a smaller font. 

PRINTOUT 

The heart of the program is a very 



sophisticated print routine which is 
customized for your specific printer. 
Two versions of the program are pro- 
vided. The back of the disk contains 
the Commodore 1525/MPS-801 ver- 
sion. The front of the disk supports 
a variety of popular printers includ- 
ing those made by Epson, Star Mi- 
cronics, Panasonic, C-Itoh, Legend, 
NEC, Mannesman Tally, Blue Chip, 
and Okidata. A customizing routine 
modifies the original program disk, 
after which a write protect tab should 
be installed. 

The entire 8'/2 x 11" surface is used 
for the greeting card. The paper may 
be precisely positioned by a test rou- 
tine which advances the paper in 
1/72" increments till a dotted line is 
printed precisely on the perforation. 
When printing is complete, you sim- 
ply fold the paper twice to complete 
the card. 

The printout process is rather long, 
about eight minutes with a Gemini 
10X. A colorful animated display lets 
you know that all is well with the 
printer, program, and computer. The 
display message alternates between 
"thinking" and "printing" while the 
operation is taking place. Consider- 
able disk access occurs during the 
printing process, as Tfie Print Shop 
recalls data on the type fonts and 
graphic images. 

SIGNS 

The sign utility lets you create a 
full page sign for just about any an- 
nouncement. The creation process is 
very similar to the above. Text space 
ranges from a maximum of 14 lines 
by 26 characters to a minimum of 4 
lines by 8 characters, depending on 
font and size. 




LETTERHEADS 

The letterhead utility lets you de- 
sign customized stationery. Both a 
header and a footer can be created. 
Each consists of a 32 character line 
in your choice of font with three addi- 
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tional 63 character text lines. A hor- 
izontal separator line may be used to 
segregate the header or footer from 
the rest of the page. Graphics may be 
incorporated in the letterhead design. 

BANNER 

Need a long sign with eight inch 
high letters? The Print Shop banner 
utility fills the bill. There is no limit 
to the length of the message, as re- 
peated applications are possible. This 
also allows for the mixing of fonts, 
as well as a variety of graphics on a 
single banner. Just keep a plentiful 
supply of printer ribbons and time if 
you plan to indulge. Roll paper is a 
definite plus for this application. 



GRAPHIC EDITOR 

For those finicky souls who can- 
not find a suitable graphic among the 
60 with the package, the graphic edi- 
tor lets you modify or create your 
own. This rudimentary utility is a far 
cry from the sophisticated packages 
I looked at in the October and No- 
vember issues of Ahoy!, but it does 
the job. The 88 by 53 dot sketch pad 
(44 by 45 dots on the 1525/MPS-801 




version) occupies about half the 
screen. Input is accepted from a 
touch tablet (best), a joystick or track- 
ball (good), or the keyboard (fair). 
The main problem with keyboard en- 
try is the lack of automatic repeat 
with the cursor keys. 

The editor allows for the placement 
and removal of dots or clearing of the 
drawing screen. No other features, 
such as geometries, fills, or block 
moves, are supported. The cursor co- 
ordinates are continuously displayed 
at the bottom of the screen. This will 
allow you to plot out the entire im- 
age on graph paper beforehand. Trac- 
ing a picture on a suitably scaled grid 
might be a good way to start. Graph- 
ics may be saved to disk for recall by 
the other parts of the package. A 
graphic file only occupies three disk 
blocks (two disk blocks for the 1525/ 
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MPS-801 version). Thus up to 144 
graphics, the capacity of the 1541 disk 
directory, may be stored on a disk. 

PRINT SHOP TO BITMAP 
CONVERTOR 

The graphic editor has its own 
unique file format for storing the bit 
mapped image. The Print Shop to Bit 
Map Convenor program on page 88 
of this issue will transfer a part of a 
Commodore 64 standard bit map file 
into the graphic editor format and 
vice versa. The program is set up to 
work with DOODLE! files and the 
non-Commodore Print Shop files. 
When going from DOODLE! to Print 
Shop, a small portion is extracted 
from the upper left hand comer of the 
DOODLE! image. In the opposite di- 
rection, the same size image is pro- 
duced with the addition of a one pix- 
el border. This will allow the ex- 
tended features of the DOODLE! 
package to be used for the creation 
of Print Shop graphics. 

SCREEN MAGIC 

This is a unique high resolution bit 
mapped four quadrant kaleidoscope 
generator. Two basic patterns are 
generated. The first pattern has ele- 
ven possible variations. Once started, 
the images vary continuously in an 
almost hypnotic fashion. When you 
spot a particularly pleasing pattern, 
strike the RETURN key to freeze the 
display. 



As with all the other Print Shop 
utilities, a message using any of the 
fonts may be superimposed on the bit 
map. Message capacity varies from 
8 lines by 22 characters to 2 lines by 
6 characters, depending on font and 
character size. The text may be modi- 
fied without affecting the original un- 
derlying image for as long as you do 
not save or print the display. Thus, 
it would be a good idea to save the 




image to disk before experimenting 
with text. The resulting printout fills 
about a half of a page. 

DOODLE.' TO SCREEN 

MAGIC 

According to the Print Shop manu- 
al, the Screen Magic images are not 
compatible with other Commodore 
graphic packages. Not any longer. 
Michael Beutjer, author of Koala 
Printer, has provided a program to 
convert between Screen Magic and 
DOODLE! format. This will allow 
you to color in or print out a Screen 
Magic image with the DOODLE! 
package. The DOODLE! screen 
dump yields an image which is ei- 
ther half the size or twice as large as 
the Screen Magic dump. See the 
Screen Magic to DOODLE! Conver- 
tor on page 88 of this issue. 



THINGS 1 WOULD LIKE 
TO SEE 

Several needed enhancements to 
the Print Shop package come to 
mind. The ability to save a greeting 
card design would be appreciated. 
Although the creation process is only 
a few minutes, being able to recall a 
saved card would avoid spelling er- 
rors and typos. 

How about a mail merge utility? 
This would permit the lengthy print- 
ing process to be left as the last step 
after all your cards have been crea- 
ted. Convenient customization for 
that truly personal touch could be 
readily implemented. 

A font editor would make a nice 
enhancement. If nothing else, this 
would allow the Print Shop to "learn" 
other languages. 

Some musical accompaniment 
would turn the Kaleidoscope utility 
into a really effective display. Just im- 
agine what the effect of a wall full 
of displays with the right sound would 
be like. 

Last, but not least, a sophisticated 
graphic editor would be most appre- 
ciated. 

CONCLUSIONS 

The Print Shop is destined to be- 
come one of the most popular pack- 
ages for the Commodore 64. Its ease 
of use and wide ranging utility will 
make it a must-have for most users. 
The suggested enhancements I have 
mentioned above in no way detract 
from the quality of the package as it 
is presently supplied. I predict that 
the popularity of this package will 
lead to many of these features, either 
directly from Broderbund or from 
outside sources. □ 

Broderbund Software, 17 Paul 
Drive, San Rafael, CA 94903 (phone: 
415-479-1170) 
SEE PROGRAM LISTINGS ON PAGE 88 



See the Reader Service Card located 
between pages 66 and 67 for more 
information on products advertised 
or otherwise pictured in Ahoy! 
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I" n light of the money given 
away every week by the State 
Lottery Commission, I fig- 
ured I could increase my 

chances of picking out the six num- 
bers it would take to pick up the 
bucks if I had some way of keeping 
record of the numbers already chosen. 
Armed only with my trusty C-64 and 
programming skills, I set out to ac- 
complish this task. After about five 
weeks of trial, error, and debugging, 
I finally came up with a finished pro- 
gram that will store all the past lot- 
tery numbers which have been cho- 
sen, display all possible numbers (de- 
pending on state) and the amount of 
times each has been chosen, and pick 
out the six numbers which have been 
most frequently chosen. 

Now don't get me wrong, this pro- 
gram will not pick out the six num- 
bers you need to win, but I figure the 
more information you have about 
something the more easily you can 
make an intelligent choice. 

Operation of the program is fairly 
simple. Once pp.st the title screen, 
you work from a main menu. When 
first starting your numbers collection, 
use the #2 selection "ENTER NEW 
NUMBERS". You will be prompted 
through the six digits required. The 
program will then display all 44 num- 
bers. In the beginning a lot of zeroes 
will show on the screen, but this will 
change after a few weeks. You will 
then be asked to press "fl" for the six 
most common numbers selected. 
These are the numbers from which 
you can select your six choices. Af- 
ter the first time you use the program, 
you must select the first option 
"LOAD NUMBER FILE" to load the 
old numbers before you add your lat- 
est entries. One more note: always 
end your program with the #5 selec- 
tion "END SESSION". This updates 
your file and ends the program. 

Lucky Lottery will only work with 
a disk drive. I hope you enjoy using 
it as much as I enjoyed programming 
it. And please, if any of you hit the 
lottery using my program, don't forget 
to cut me in. □ 
SEE PROGRAM LISTING ON PAGE 111 



By Bob Lloret 




Clockwise from top: Natalie by 
Wayne Schmidt (New York, NY), 

created on DOODLE!; Dragon 
by Brian Glover (New York, NY), 

also on DOODLE!; front and 
back views of Garfield by Henry | 
Ho, rendered on Sorcerer's 
Apprentice; and Polly Wanna 
Crackit by Wayne Schmidt, 
using Flexidraw. Contrib- 
utors to Alioy! 's Art Gallery' 
will receive royalties based! 
on the sale of disks con- 
taining the best computer 
graphics received, both i 
published and unpub- ' 
lished. Send your best J 
^* work on disk, accom- ^ 

panied by a stamped and 

self-addressed mailer, to Morton 

Kevelson, P.O. Box 260, Homecrest 

Station. Brooklyn. NY 11229. Indicate the drawing package that was used to create the image. If you employed a bit map 

of your own design, indicate the appropriate file parameters, i.e., hi-res or multicolor, location of bit map, screen and color data. 









Quality For Your Commodore 64 

ORDER BYPHONE AND WE PAYFOR YOUR CALL! 

TO ORDER CALL 612 922-0516 $1.50 OFF EVERY PHONE ORDER 

88EK8 

The fastest, most reliable and easiest-to-use copy 
prograam for the Commodore 64™. 

Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information on a disk and even the 
newest copy protection including half tracks and 
track 36 + 

FULLY AUTOMATIC'There are no parameters to set. 
You don't even need to swap disks when using two 
drives. 

REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 
minutes. 

NOW ONLY $39.95 

Seven day money back guaranteed. 

D-rnDDEm 

The 100% 1650 compatible modem. Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed. 

STAR SG-10™ printer 
with GPC ONLY $339.00 

Star SG-10 features: 

■ 120 CPS bidirectional-logic seeking printer 

■ Full graphic-word processing features! 

■ Near letter quality mode! 



The printer enhancer and full spooling buffer for the 
Commodore 64"". 

■ Gives you control of your printer while printing 

■ Enhances the speed of your printer 

■ Provides the 1525 and 801 printers with true 
descenders and underlining 

SPECIAL $19.95 

DTERfTl 

■ Fully Menu Driven 

■ Auto Answer - Auto Dial - completely supports 
modems of this type 

■ On Line Printing - enables you to print while the 
computer is in terminal session 

■ Full uploading and downloading - enables you to 
send files to and from the disk over the phone 

NOW ONLY $29.95 

GRAPHIC PNNTER CADif 

The Graphic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
64™, S x 64™, and Vic-20™ computers, 

a For virtually all Centronics-Parallel Dot Matrix 
Printers 

■ An intelligent 2k buffer is standard 

■ Software Configurable allowing Commodore™ 
printer emulation 

External printer selection switches 

NOW ONLY $89.95 




4520 Excelsior Blvd. 

Minneapolis, MN 55416 

(612) 922-0516 

Reader Service No. 157 



COMMODORE 64 

• with $19.95 Software Purchase 

$ 139 

•170K Disk Drive S149.00* 

• Tractor Friction Printer S159.00 

• 13" Hi-Res Color Monitor $179.00 * 



COMPUTER AND SOFTWARE 



• COMMODORE 64 COMPUTER $139.00 

You pay only S139 00 iwilh the 519 95 software 
purchase see below! when you order ihe powerful 
S4K COMMODORE 6J COMPUTER' tESS the value of 
Ihe SPECIAL SOFTWARE DISCOUNT COUPON we pock 
with your computer thot allows you to SAV£ OVER 
$500 otl software sole prices 11 W.th only $100 of 
sovings applied your net computer cost is S39.00' ! 

* 170K DISK DRIVE S1«,00 

You pay only SI49 00 (with the 519.95 software 
Curchose see belowj when you order the 17QK Disk 
Drive 1 LESS the value of the SPECIAL SOFTWARE 
DI5COUNT COUPON we pock with your disk drive that 
allows you to SAVE OVER S500 oft software sale 
prices! I With only SIOO af sovings applied your net 
disk drive cost is SJ9.00. 



You 



13" HIRES COLOR MONITOR ST79.00 

poy only SI79.00 Iwilh the SI9.95 sollwore 



purchase see below; when you order this 13 COLOR 
MONITOR with sharper and clearer resolution than 
any other color monitors we have tested! LESS value 
ol (he SPECIAL SOFTWARE DISCOUNT COUPON we 
pack with your monitor that allows you to save over 
S500 off software sale prices 11 With only SI00 ol 
savings applied your net color monitor cost is only 
579 00 iloColan). 

80 COLUMN SO CPS 
TRACTION/FRICTION PRINTER $159.00 

You pay only 5159.00 when you order the Comstar T F 
deluxe line printer that prints 8' t x\ I full size, single 
sheet roll or fan fold paper labels, etc Impact dot 
motrii bidirectional. LESS Ihe value of the SPECIAL 
SOFTWARE DISCOUNT COUPON wve pock with your 
printer thai allows you to SAVE OVER 5500 off 
software sale prices 11 With only 5100 of sovings 
applied your net printer cost is only S59.00 

SO COLUMN BOARD 579. CO 
Now you program B0 COLUMNS on the screen at one 
time 1 Converts your Commodore 64 to 80 COLUMNS 
when you plug in the 80 COLUMN EXPANSION 
90ARD ' ' PLUS 4 slot expander and word processor • 

SD COLUMNS IN COLOR 
PAPERBACK WRITER » WORD PROCESSOR $39.00 

This PAPERBACK WRITER 64 WORD PROCESSOR is the 
lines! available for the COMMODORE 64 computer 1 
The ULTIMATE FOR PROFESSIONAL Word Processing. 
DISPLAYS 40 or 80 COLUMNS IN COtOR or black and 
white 1 Simple to operate, powerful tevt editing 
complete cursor and insert delete key controls line 
and paragraph insertion automatic deletion 
tilings ond output lo all printers! 



SALE 



CALL 

BEFORE 

YOU 

ORDER 



PRICES 
MAY 
BE 
LOWER 



SPECIAL SOFTWARE COUPON 



We pack a SPECIAL SOFTWARE DISCOUNT 
COUPON with every COMMODORE 64 
COMPUTER, DISK DRIVE. PRINTER, or 
MONITOR we soil! This coupon allows you 
to SAVE OVER 5 500 OFF SALE PRICES!! 



(Examples) 

PROFESSIONAL SOFTWARE 

COMMODORE 64 



Name 


Lilt 


Sole 


Coupon 


Paperback Writer 64 


S99 00 


S39 00 


S39 95 


Paperback Data Base 


S69 00 


53J 95 


S3i 95 


Paperback Dictionary 


S2J <)S 


St J 95 


$10 00 


Prar.tic.ak II 


S69 9S 


SJ9 95 


S-U 95 


Print Shop [Disk) 


S4J 95 


532 95 


526 95 


Practicalc 


S59 95 


ill 95 


SI9 95 


Programmers Reference 


530 95 


S16.95 


$17 50 


Guide 








Programmers Helper 


SS9 95 


S29.95 


S19 9S 


(Disk) 








80 Column Screen ID.sk) 


S59 95 


S29 95 


S19 95 


Disk Filer (by Flip N File! 


S39 95 


S!4 95 


SI5 95 


Deluxe Tope Casselle 


SB9.00 


S44.95 


S3i 95 


Pro JayStick 


S19 95 


S12.95 


510 00 


light Pen 


539 95 


St J 95 


S 9 95 


Dust Cover 


S 8 95 


S 6 95 


S 4 60 


Simon s Basic 


519 95 


S22 95 


SI9 95 


Pilslop II Epyir 


539 95 


S2a 95 


SI9 95 


Super Graphics Expander 


529 95 


522.95 


519 95 


Music ColC 1 


559 95 


SJ9 95 


S24 95 


Filcwriter 


559 95 


S29.95 


524 95 



{See over 100 coupon items in our catalog) 

Write or call for 

I Sample SPECIAL SOFTWARE COUPON! 



CI 28 COMMODORE 
*j& COMPUTER 

(Corning Soon — Order Now) 

oo* 



ATTENTION 

Computer Clubs 

We Offer Big Volume Discounts 

CALL TODAY! 



erite 



ng niargir 



list $99 00 SALE $39.00 Coupon S29.95 



*The $19.95 Software Purchase Options 

tIST SALE 

1 2* Program Bongi Pack (rap* or disk J $29. 95 IH.tJ 

2. Oil Barrans Strategy Board Game £49.93 »l*-*3 

3 Disk Drive Cleaner 129.95 HftW 

A HES Gomes (disk) S29.9S Hl.11 



5, Pogo Joe (tape or disk) 



$29.95 MM 




• Computer Learning PqH 537.95 

• Voice Synthesizer 549.00 

• 12" Green or Amber Monitor 579.95 

• 12" Daisy Wheel Printer 5199.00 



* Cl 28 COMMODORE COMPUTER $299.00 

We e«pect a limited supply the 1st week in July We 
will ■ship on o first order basis. This all new 
rpvolu'itonory 123K computer uses all Commodore 64 
softwore and accessories plus all CP'rVi programs 
formatted far the disk drive 
List 53-19.00 SALE $299.00. 

SUPER AUTO DIAL MODEM $59.00 

Eosy to use. Just plug into your Commodore 64 
computer ana* you re ready iq transmit and receive 
messages. Easier to use than dialing your telephone, 
lust push one key on your computer! Includes 
exclusive easy To use program for up and down 
loading to printer and disk drives. Bett in U.S.A. 
.-:.'" SALE $59.00 

COMPUTER LEARNING PAD $37.95 

Makes other graphics fablers obsolete. This TECH 
SKETCH LEARNING PAD allows you to draw on your 
T.V. or Monitor and then you can print whatever you 
draw on the screen on your printers FANTASTIC 1 1 I 
List $79.95 SALE M7.M. 

VOICE SYNTHESIZER $49.00 

for Commodore-64 computers. Jusl plug it in and you 
can program words and sentences, adjust volume and 
pitch make talking adventure games, sound action 
games and customized talkies' I FOR ONLY S19,95you 
can odd TEXT TO SPEECH just type a word and hear 
your computer talk - ADD 50UND TO ZORK , SCOTT 
ADAMS AND OTHER ADVENTURE GAMES! ! 
[Disk or tape-} 

IT' GREEN OR AMBER MONITOR $79.95 
Your choice of green or amber screen monitor top 
quality 60 columns * 74 lines, easy to read ami 
glare 1 PLUS $9.95 for connecting cable. Com-64 or 
VIC-20. 

PRiNTER/TYPEWRfTER COMBINATION $2*9.00 

JUKI Superb letter quality daisy wheel 
printer typewriter combination, Two machines In one 
lust a fJick of the switch 12 extra forge carnage, 
typewriter keyboard automatic margin control ond 
relocate key drop in cassette ribbon 1 {90 day 
warranty} Centronics parallel or RS232 serial port built 
■ r [Specify}. List $349.00. SALE $349.00. [ltd. Oty : 

CARDCOG+ INTERFACE $59.00 

For Commodore 64 and Vic 20 Computers- Lets you use 
other printers with Centronics interfaces. This 
interface lets the printer act like a Commodore printer 
including printing the Commodore graphics (Dot 
matrix with graphic capability printers). 
List $109 00 SALE S59.0C 



VNTY I 

.OGS I 



• LOWEST PRICES ■ 15 DAY FREE TRIAL 

• BEST SERVICE IN U.S.A. ♦ ONE DAY EXPRESS MAIL 



PHONE ORDERS 

8 a.m. ■ 8 p.m. Weekdays 
9 a.m. - 1 2 noon Saturdays; 



• 90 DA Y FREE REPLACEMENT WARRANTY 
• OVER 500 PROGRAMS < FREE CATALOGS 



Add $10.00 for shipping, handling and insurance. Illinois residents 
pleose add 6". (OX. Add S20Q0ior CANADA. PUERTO RICO. HAWAII 
ALASKA APO FPO orders, Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow M 
days tor delivery. 2 lo 7 days for phone orders 1 day express moil? 
VISA — MASTER CARD — C.O.D. No C O.D. to Canada. APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd.. Barrington, Illinois 60010 

312/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE!!! 



10X COMSTAR 

HIGH SPEED 

Tractor Friction Printer 
130-150 CPS 



Only 



Corn-Star 

i „ 



if luimiiiiiiitJiiiniiiiiiiiiiBiiimiiimiiitiiiiiiiimjiiiiiiiiiiHiiimiiiiiii! 



COMSTAR 



' List $499 

150-170 CPS Printer $319°° 



• Lowest Sale Price, Premium Quality, Tractor/Friction Printer in the U.S.A. (Best Value) 

• High Speed 130-150 Characters Per Second • 40, 46, 66, 80, 96, 132 line spacing 

• Word Processing, Letters * Business Forms • Labels, Graphics, Tables * List Programs 
Fantastic Graphics * Print Modem Data • The Most Important Accessory For Your Computer 



Premium Quality 

130-150 CPS 10X COM-STAR 

High Speed Printer $199 

10" carriage, 2K buffer, prints 
8Vxll" standard single sheet or 
continuous feed paper, Bi-directional, 
impact, dot matrix, 130-150 CPS, 9x9 
dot matrix with double strike 
capability for 18 x 18 dot matrix (near 
letter quality), high resolution bit 
image, underlining, downloadable 
characters, true lower descenders 
with super and subscripts, prints 
standard, block graphics, and special 
characters. It gives you print quality 
and features found on printers costing 
twice as much!! {Centronics Parallel 
Interface I (Better than Epson FXR0 
and Gemini lOx). 
List $499.00, Sale* 199.00. 

Premium Quality 150-170 CPS 

15i/ 2 X COMSTAR Business 

Super High Speed Printer $319.00 

Has all the features of the 10X COM- 
STAR PRINTER plus 1S%" carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson 
FX 100 & Delta 15). 
List $599. Sale $319.00. 



■JUKI 

12" DAISY WHEEL 

PRINTER $199.00 

"JUKI" Superb letter quality daisy 
wheel printer, 12" extra large 
carriage, up to 12CPS bi-directional 
printing, drop-in cassette ribbon, (90 
day warranty) Centronics parallel or 
RS232 serial port built in ! ( Specify j . 
Lim itvd Quantities, 
List $299.00. Sale $199.00. 



■JUKI 

Printer /Typewriter 

Combination $249.00 

"JUKI" Superb letter quality, daisy 
wheel printer/typewriter 

combination. Two machines in one — 
just a flick of the switch. 12" extra 
large carriage, typewriter keyboard, 
automatic margin control and relocate 
key, drop in cassette ribbon! (90 day 
warranty) Centronics parallel or 
RS232 serial port built in (Specify!. 
List $349.00. Sale $249.00. 



OOlympia 

Executive Letter Quality $339.00 
15" Daisy Wheel Printer 

This is the world's finest daisy wheel 
printer. Fantastic letter quality, up to 
20 CPS bi-directional, will handle 14.4" 
forms width! Has a 256 character print 
buffer, special print enhancements, 
built in tractor-feed (Centronics 
Parallel and RS232C Interface) (90 
day warranty). 
List $649.00. Sale $339.00 



OOlympia 



Printer/Typewriter Combination $43100 

Better than IBM Selectric. Superb 
computer printer combined with the 
world's finest electronic typewriter. 
Two machines in one, just flick the 
switch for up to 20 CPS printing (300 
Words per minute) on a 15" carriage 
that handles up to 14 1/8" in. paper. 
Drop in cassette ribbon — express lift 
off correction, Centronics parallel 
interface ( 90 day warranty ) . 
List $749.00. Sale $439.00. 



15 Day Free Trial — I Year immediate Replacement Warranty 



PARALLEL INTERFACES 



For VIC-20 and COM-64 — $59.00. Apple — $59.00. Atari — $59.00. 



Add $14. 50 lor shipping, handling and insurance. Illinois residents 
please add 6% tax. Add S29.00 for CANADA. PUERTO RICO. HAWAII. 
ALASKA. APO-FPO orders. Canadian orders must be in U.S. dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days delivery. 2 to 7 doys lor phone orders. 1 doy express mail ! 
VISA — MASTERCARD - C.O.D. NoC.O.D. to Canada or APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barringlon, Illinois 60010 

312/382-5244 to order 
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40 or 80 Columns 
in Color 



Paperback Writer 64 



40 or 80 Columns 
in Color 



This is the easiest to use and most powerful word processor available for the Commodore 64. As you type on the 
screen, you will see your letters and words appear on the screen exoctly as they will be printed (i.e. Italics will 
be Italic, Bold Face will be Bold Face). With the printer files you can customize Paperback Writer 64 to use all the 
fancy features of your printer. Loads EZ Script S , Paperclip 5. , & Wordpro 64 5. Files so you can easily upgrade 

your past wordprocessing text that you've written with obsolete wordprocessors. 
Take a look at some of the other features: 

• Wordwrap — No Words Break At The Edge Of The Screen. 

• Flexible Cursor Movement, Including Tabs And Other Timesavers. 

• Deletion And Insertion Of Characters. Lines And Blocks Of Text. 

■ On-screen Text Enhancement Such As Bold Face, Italics. Underlining. 
Superscripts And Subscripts, And Foreign And Other Characters. 

• Manipulation Of Blocks (ranges) Ol Text For Functions Such As Moving 
And Deleting. Even Between Files. 

• Sorting Lists In Order Of Numbers And Letters. 

• Aligning And Adding Numbers In Columns, Helpful With Tables. 

• Variable Margins At Left And Right, And Paragraph Indentation. 

• Lines Centered, Justified Or Aligned At The Right Side. 

■ Variable Page Lengths And Line Spacing. 

• Borders At Top Or Bottom With Optional Title Lines And Page Numbers. 

• Linked Files To Print Extra-long Documents In Sequence. 

• Flexible Printer Set-up To Allow Use With Any Printer. 

• Find And Replace Text Functions That Can Be Automatic. 

• Complete Or Selective Directories Of Files On The Disk. 

• Sequential Files For Moil Lists And Communication With Other 
Computers. 

■ Spelling Checker, Checks Your Spelling. 




INTRODUCTORY PRICE 



$ 



39 



95 



DOUBLE PROTECTO FREE TRIAL 

We are so sure this is the easiest and most powerful word 
processor available, we will give you 30 days to try it out. If you 
are not completely satisfied, we will refund your purchase price. 



ft ft ft Plus ft ft ft 

Full help screens on line with additional help on the disks mean 
you don't even need a manual. If you're in the middle of a page 
and you want to know how to use a special function just hit F7 
and the information will appear before your eyes. If you still 
don't understand hit F7 again and a more detailed explanation 
appeors. Then simply hit F8 and you're back in 
the letter where you left off. No manual lookup 
necessary. This is the easiest word processor in 
the world to use. 
List $99. 00. Introductory Sale Price $39.95. 



PAPERBACK DATABASE List $69.00. Sale $34.95. * Coupon $24.95. 



Add S3. 00 for shipping, handling and insurance. Illinois residents 
please add 6% lax. Add So. 00 for CANADA. PUERTO RICO. HAWAII, 
ALASKA. APO-FPO orders. Canadian orders musi be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days for delivery. 2 1o 7 days for phone orders, I day express mail ! 
VISA - MASTER CARD - COD. 

No COD. to Canada. APO-FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barrington, Illinois 60010 

312/382-5244 to order 
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SALE 



80 CPS PRINTER # 



Smith Corona 

* Commodore 64 * Atari • Apple * More 

11" Carriage • Friction/Tractor • Graphics 



n5* 



1 Year 

Immediate 

Replacement 

Warranty 





Tractor Feed 
Included FREE! 

=!IIIHHE r^i-n-»r-ii 



CORONIV 



The Fastext 80 dot matrix printer from Smith-Corona. A high speed, high flexibility prinier with a low suggested 
manufacturer's retail price of only $299.00. Sale $159.00. It does your graphics with ease and prints letters with speeds up 
to 80 CPS. (Does Commodore graphics with graphics interface.) As for flexibility, it has bi-directional printing, friction 
and tracter feed . Plus six different pitches including condensed and enlarged type for impeccable characters in a variety 
of sizes. Also standard is a full line buffer and thrifty drop-in ribbon cassettes that yield up to a million characters. Finally, 
it's compatible with virtually all personal computers. Teamed up with your personal computer, it'll keep track of your 
transactions, fly through finances, help with homework, even plan the family menu. All this with the assurance of superb 
Smith-Corona quality built in, makes the Fastext-80 a lot of dot for your dollar. List $299.00. Sale S159.00. 



SPECIFICATIONS: 

Sue Weight: Height 4" Width 16.5" Depth 9" 

Weight 8.2 lbs. 
Electrical Needs: 120V 6OH2 
Internal Chor. Coding: ASCIISISO 
Print Buffer Siie: 132 Bytes (1 line) 
No. of Char, in Char. Set: 96 ASCIIS 

Inter national 

Graphics Capability: Standard 60. 72 Dots Per 

Inch Horizontal. 72 Dots Per Inch Vertical 
Pitch: 10. 12. 16.7. 5. 6, 8.3 
Printing Method: Impact Dot Matrix 



Chor. Matrix Size: (Standard) 9H x 8V. 

(Elongate) 10H x 8V 
Printing Features: Bi-directional. Short line 

seeking 
Printing Speed: B0 CPS 

PAPER 

Type: Plain 

Forms Type: Fanfold, Cut Sheet 
Max Paper Width: 1 1" 

Feeding Method: Friction Feed Std.: Tractor 
Feed Included 



RIBBON 

Type: Cassette — Fabric inked ribbon 
Life: 1 million characters 

CHARACTER MODE 

Character Font: 9x8 Standard, 10x8 Elongated, 

No. 8 pin to be used for underline 
Character Set: 96 ASCII. 11x7 International Char. 
Pin Graph Mode: The incoming bit pattern 

corresponds to the 8 pins in the print head 
Resolution: Horizontal; 60. 72 dots/inch. Vertical: 

72 dots'' inch 



PARALLEL INTERFACES 



Commodore 64 — $39,00 



Apple II. He, II + - $59.00 Atari - $59.00 



Add $10.00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add S20.00 for CANADA, PUERTO RICO. HAWAII. 
ALASKA. APOFPO orders. Conodion orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
doys for delivery. 2 to 7 days for phone orders, 1 day express moil! 
VISA — MASTER CARD — C.O.D. 

No C.O.D. to Conodo. APOFPO. 



We Love Our Customers 

22292 N. Pepper Rd., Barringlon, Illinois 60010 

312/382-5244 to order 



Reader Service No. 154 



COLOR MONITOR 
£& S ALE!! ! 



(Premium Quality) 

• Built in Speaker and 
Audio 

• Front Panel Controls 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore - 
Atari • Franklin - etc. 



Add S 14 SO shipping handling and insurance 
Illinois residenii pleose add 6'. tax We do 
no' ihip to foreign countries {tncluding 
Canada) Alaska Puerto Rico APO-FPO- 

Endose Cashiers Check. Money Order or 
Personal Check. Allow \* days lor delivery. ? 
ro 7 days tor phone orders I doy express 
mail I 





(Premium Quality) 

• Beautiful Color 
Contrast 

• High Resolution 

• Separated Video 

• Sharp Clear Text 

• Anti-Glare Screen 

• 40 Columns x 24 Lines 

• Supports 80 Columns 

List $399 00 

SALE SlTQoo** 

13" Color Computer Monitor ^**" ***** 

' with S19.95 Software Purchase 

without Software Purchase S189.00 

'Connecting cable $9.95 



15 Day Free Trial - 90 Day Immediate Replacement Warranty 



SALE $179°° 
SALE $ n9°° 



14" COMMODORE 1702 COLOR MONITOR 

List $299 00 

12" XTRON SUPER HI-RESOLUTION MONITOR 

80 Columns x 24 Lines. Super Hi-Resolution 1000 lines List S 249°° 
Green or Amber Super-Clear "Easy to Read" text with 
special anti-glare screen! 

1 2" J&UIH HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 

80 Columns x 24 Lines, Hi-Resolution, crisp clear easy List S l99°° SALE *99°°* 

to read text with anti-glare screen! A MUST for word 
processing. 

12" MONITOR GREEN OR AMBER TEXT 

80 Columns x 24 Lines, easy to read up front controls ^jst M 59°° 



SALE $ 79 95 

* Connecting cable $9.95 



• LOWEST PRICES' 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER S00 PROGRAMS • FREE CATALOGS 



Add 510.00 for shipping, handling and insurance. Illinois residents 
pleose add 6% tax. Add S20.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canodian orders must be in U.S, dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 
days for delivery. 7 to 7 days for phone orders. 1 day express moil '- 
VISA — MASTER CARD - C.O.D. No C.O.D. to Canada. APO-fPO 



We Love Our Customers 

22292 N. Pepper Rd„ Barrington. Illinois 60010 

312/382-5244 to order 
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Commodore 64 



One Megabyte 

$ i99 Disk Drive *"9 

Store Spreadsheets, Databases, Wordprocessing Data, Etc. 

• Commodore 64 • PET • 8032 • B128 



The one megabyte disk keeps you from hunting through hundreds of disks for your programs; plus running out of 
room on your drive for Data base Data, Word processing Text, Spreadsheet Data, Business program Data, etc. 
With the One Megabyte Disk Drive you can store over S'/i times the capacity of the 1541. You can store your 
own programs and any back-upable commercial programs plus data from your business programs*. Perfect as a 
second Drive ! ! ! ! Enter the world of professional computers today. C-64 requires IEEE interface. 
List S899.00. Sale 5199.00. LIMITED QUANTITIES! -Requires 2 drive software. 



$ 299 00 Sale $ 299 00 

15V 2 " High Speed 
150-170 CPS 

BUSINESS PRINTER 




The MPP-136I is a highly advanced 136-250 column 15' V professional tractor/friction printer with full Bit image 
graphics and downloadable characters for custom reports and program listings. The paper feed includes a multiple pin 
tractor for smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print 
head at 100 million characters this printer will last a lifetime. Full formatting with near letter quality makes lining up 
decimal points, automatic "$" signs and tabbing look fontastic and easy to use. With out a doubt THIS IS THE BEST 
PRINTER VALUE IN THE U.S.A. ListS899,00 Sale $299.00. LIMITED QUANTITIES! 



SPECIFICATIONS 



PRINTING METHOD 

Serial Impact Dot Matrix 
PRINT RATE 

150-170 Characters per 
second (CPS) 

PRINT STYLE 

Near Letter Quality 

PRINT DIRECTION 

Bi-directional 



COLUMN CAPACITY 

1 36 • 250 

LINE SPACING 

Programmable 

COPIES 

3, including original 

RIBBON TYPE 

Cartridge ($14.95) 



RIBBON LIFE 

1 Million Characters 

PAPER WIDTH 

3" to 15 V%" tractor or 

single sheet friction 

INTERFACE 

IEEE Protocol 

CHARACTER SIZE 

0.1 16" high. 0.08" wide 



GRAPHICS 

Bit Image 

Programmable Characters 
Reverse Characters 

ERROR HANDLING 

Internal 

Self • Diagnostics 

Microprocessor 



Commodore 64 IEEE Interface 



This interface plugs into your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive and 
MPP-1361 Printer as well as other IEEE devices. Separte power supply insures reliability. Fantastic Interface, (includes 
all cables) List $109.95. If bought with printer or disk drive *69.00. 

(no interface needed tor PET. B-J28. ond 8032 computers) 



Add $17.50 for shipping, handling ond insurance. Illinois residents 
please add 6% lax. Add 535.00 for CANADA. PUERTO RICO HAWAII. 
ALASKA, APO FPO orders. Canadian orders must be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check, Money Order or Personal Check. Allow \i 
days for delivery 2 to 7 days for phone orders. 1 day express mail' 
VISA — MASTER CARD — C.O.D, 

No C.O.D. to Canada. APO -FPO 



We Love Our Customers 

22292 N. Pepper Rd., Barrington. Illinois 60010 

312/382-5244 to order 
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Auto-Append: 



An Easy Merging Utility 
for the VIC and 64 



By William V. Braun 



The thing that I least enjoy about programming is 
the time I must spend entering in code with the 
keyboard. I've often wished for some way of add- 
ing general subroutines that I had on tape or disk 
directly to the program I'm working on, rather than having 
to key them all in by hand. Then there were the times when 
I wanted to be able to load two programs into memory right 
from tape or disk and simply combine them into one program. 
Fortunately, I found a way to solve this problem. If you too 
have wished for an easy-to-use appending utility, I have the 
answer for you. 

Auto-Append is a short BASIC program which loads a ma- 
chine language routine into the top 28 bytes of RAM, and re- 
sets the limit of BASIC a bit in order to protect the routine 
from being overwritten. The machine language routine allows 
the user to enter two programs into RAM directly from tape 
or disk, then combines them into a single program. You can 
use Auto-Append with any amount of memory expansion, as 
the program automatically compensates for it. 
Just follow these simple steps to append two programs: 

1. Load and run Auto-Append. 

2. Jot down the SYS locations in the instructions. 

3. Load the first program (the one with the lower line num- 
bers). 

4. Execute the first SYS (type it and press return key). 



/ 



S5.00 



The IEA Instant Editor Assembler 

is now on SALE for only $5.00 
plus $2.00 postage and handling 



: 



Written in 100* machine language 
Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor 



• Computable with HES MON 

• SLOW MOTION code analyzer 
9 Technical assistance number 



Robin's Software 

Bo» 3D3PO • Bkxxninntiin WIN 554S0 
Phono 16121 944 8654 



$9.95 each!!! 
for the Commodore 64 

BLACKJACK GIN RUMMY 

DISK or TAPE 

PYSCO SOFTWARE 

Box 301 Bristol, CT 06010 



--?;£S*~®&''>' 




WANTED 



COMMODORE 64 computers and 1541 Disk 

Drives; $75 for those in working condition. 

Please call 205-221-5211 
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5. Load the second program (the one with the higher line 
numbers). 

6. Execute second SYS. 

Step 2 is very important, as the instructions will gradually 
scroll off the screen as you load your programs and you will 
probably have forgotten the proper SYS locations. 

It is essential that you keep in mind the fact that the first 
program you load must have lower line numbers than the sec- 
ond program. For example, if the first program ends with line 
number 800, the second program must begin with a line num- 
ber no lower than 801. This is necessary due to the way pro- 
grams are stored in RAM. 

Once you have your programs combined, save a copy and 
verify it before trying to run it. A faulty POKE could cause 
the program to crash, making it necessary to repeat the ap- 
pending process if you did not make a copy of the program. 
Also keep in mind that you must have enough memory (espe- 
cially important on VIC 20*s) to hold the machine language 
routine and both programs. This is unlikely to be a problem 
on the C-64; however, on an unexpanded VIC 20 you only 
have about 3.5K RAM to work with. 

Adding your general subroutines (such as centering, round- 
ing, etc.) to a program you are working on can be very easy 
if you store them on tape or disk as separate programs, then 
use Auto-Append to add them to your new program. You may 
want to give them meaningful names such as Center, Round, 
or Hex Conversion. Just load them from tape or disk as needed, 
using their program name. This technique should be much eas- 
ier than having a single program with all the general subrou- 
tines in it, which would make it necessary for you to delete 
all the parts of it you did not want after it had been appended 
to your new program. Don't forget to give the different rou- 
tines different line numbers, and make sure they are very high 
numbers to reduce the possibility of having them lower than 
the highest line number in your new program. 

Let's take a look at the program itself. Line 10 is really the 
workhorse of the program. The first two POKEs lower the 
limit of BASIC by thirty bytes, protecting the machine language 
routine. Memory locations 55 and 56 are pointers for the end 
of BASIC. The variable A is the address where the first byte 
of the machine language routine is to be located. It is also the 
first SYS address. The FOR-NEXT loop in Line 10 actually 
reads the machine language routine which is held in the data 
statements and POKEs it into memory. 

Lines 15 and 20 clear the screen and print the instructions 
on how to use Auto-Append. The second SYS address is equal 
to A+19. Line 25 holds the machine language routine executed 
by the first SYS. while Line 30 holds the second routine. 

The first machine language routine moves the start of BASIC 
to the end of the first program you have loaded, thus causing 
the second program loaded to be located in memory right after 
the first. The second machine language routine returns the start 
of BASIC to its original location. You will notice that if you 
try' a LIST after you have executed the first SYS it will appear 
that your first program is no longer in memory. This is just 
because the start of BASIC is now after that program, and a 
LIST causes the computer to start looking for a program where 
there is none. The second SYS returns the start of BASIC point- 
ers to their original value, allowing you to see both programs 
as one. □ " SEE PROGRAM LISTING ON PAGE 100 
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THE GAMES CREATOR 

Mastertronic International 
Commodore 64 
Disk; $19.95 

Calling all would-be computer 
game designers. If you've got the ul- 
timate action challenge bottled up in- 
side you, but don't have the know- 
how to get the idea onto a floppy 
disk, David and Richard Darling's 
The Games Creator is a "must buy." 

Software which lets non-program- 
mers create adventure games and 
branching stories has become quite 
common in the last year. Until now, 
no comparable system has existed for 
action contests. (Broderbund's Vie 
Arcade Machine, released in 1983, is 
easier to use than assembly language 
or BASIC, but its process is still pret- 
ty complex.) 

Any reasonably intelligent person 
can use this program to produce a 
climbing-and-jumping contest, maze, 
or scrolling shoot-out with extensive 
sound and graphics. A sample of 
each format is included on the disk, 
and most novices will start by modi- 
fying one of these sample games be- 
fore constructing a new one from 
scratch. They're also reasonably en- 
tertaining in their own right, a bonus 
for consumers. 

The 36-page instruction book re- 
duces the gamemaking process to a 
series of small, easily understandable 
steps. The numerous illustrations 
clarify every phase of the process, 
even though fuzzy reproduction and 
sloppy photo cropping undermine the 
pamphlet's aesthetics. A glossary ac- 
quaints users with any unfamiliar de- 
sign terms. 

An onscreen menu, operated with 
a joystick or the keyboard cursor con- 
trols, is the hub of the system. Se- 
lecting "Change," as opposed to "Play," 
"Save," or "Load," begins the con- 
struction of a game. 

The designer can work on aliens, 
sounds, graphics, or the player. When 
one aspect of the game is done, the 
f! key restores the main menu so the 




Must buy for frustrated programmers. 
READER SERVICE NO. 101 

gamer can choose another. 

Sub-menus regulate the aliens' on- 
screen motion and behavior charac- 
teristics. There are five aliens from 
which to choose. The inventor can 
adjust random movement parameters, 
use the joystick or cursor keys to out- 
line a predetermined movement path, 
and select the alien's starting position 
on the screen. The other menu con- 
trols animation speed, movement 
speed, the ability to scroll off the 
screen, shooting, the mechanism for 
advancing to higher levels, collisions, 
and the number of nasties. 

Sound is divided into tunes and ef- 
fects. A serviceable music construc- 




Manage the greatest teams of all time. 
READER SERVICE NO. 102 



tion kit can be used to write up to 
seven pages of music and make it 
sound like any of several instruments 
when played. A program can employ 
up to seven sound effects to aurally 
indicate when the player fires a bul- 
let, gets killed, collides with an al- 
ien, and so forth. The individual ef- 
fects can be styled by adjusting the 
attack, decay, frequency, and wave- 
form. The computerist can check a 
sound by hitting fl while working 
with the effects menu. 

Two sub-menus split graphics into 
scenery and sprites. The former per- 
mits the pixel-by-pixel construction 
of playfields; the latter focuses on the 
game's moving objects, or sprites, of 
which there can be up to eight. 

The final menu commands the 
computerist's own onscreen represen- 
tative. Among the user-determined 
factors are the player's starting point 
in the game, the keys which cause 
movement, how far a character can 
fall in a jumping game, and whether 
the player moves continuously or on- 
ly in response to specific directives. 

The obvious question is: What 
about the resulting games? Games 
Creator programs aren't state-of-the- 
art stunners, but they can be attrac- 
tive and a lot of furi to play. The Darl- 
ing Brothers have streamlined the 
construction process by restricting 
choices, especially in sound and 
graphics, without leeching the life out 
of it. With practice, an imaginative 
computerist can invent action pro- 
grams which would be a credit even 
to the code-wizards who developed 
Tlie Games Creator. 

Mastertronic International, 407 
Park Avenue South, Suite 16A, New 
York, NY 10016 (phone: 212- 
213-0166). -Arnie Katz 

MICRO LEAGUE BASEBALL 

Micro League Sports Association 
Commodore 64 
Disk; $39.95 

Strike three! The ballgame was 
over. And even before the Mighty 
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Casey finished his post-game show- 
er, Mudville rooters were second- 
guessing the slugger's manager over 
a round of brews. One secret of base- 
ball's enduring popularity is its end- 
lessly fascinating strategy. 

Statistical simulations like Micro 
League Baseball give armchair man- 
agers the chance to improve on real- 
ity. Their mathematical formulas 
quantify the performance of major 
leaguers so that each athlete in the 
game reflects the real-life player's 
abilities during the season on which 
the program is based. So if you re- 
played a full season, using each play- 
er exactly as his flesh-and-blood 
manager did, team and individual sta- 
tistics would virtually duplicate the 
actual season's totals. 

While some players of statistical 
simulations do, in fact, try to precise- 
ly recreate the past, most want to 
change history. Could a revised pitch- 
ing rotation improve a team's finish? 
Is there someone riding the bench 
who ought to be playing every day? 
Would the team score more runs if 
it emphasized the hit-and-run over 
longball power? 

Micro League Baseball gives com- 
puterists the chance to answer these 
and other equally intriguing questions. 
This is a rock-solid stat game dressed 
up in visuals which would do any ac- 
tion baseball program proud. 

One or two human managers — 
there's a robot pilot for solitaire fun- 
can choose any of the 25 famous 
teams on the Game Disk. The pub- 
lisher plans Team Disks, available for 
purchase separately, which will con- 
tain many more squads, including all- 
time all-star rosters for each major 
league franchise and disks that simu- 
late full seasons. An easy data trans- 
fer routine lets the computerist match 
a team on any Micro League Base- 
ball disk with any other team on a 
similar disk. Thus, it's possible to see 
how the Yankees of Mantle and Maris 
might stack up against the Bronx 
Bombers of Ruth and Gehrig. 

The Game Disk contains an an- 
thology of teams, intended to show 
the scope of the manufacturer's in- 
tended future releases. The Game 
Disk includes some recent jugger- 
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nauts (78 Yankees, '80 Phillies. '80 
Royals), classic teams of the past ('27 
Yankees, '55 Dodgers), and some all- 
star squads (all-time AL and NL 
greats). And masochists will thrill to 
the exploits of the numbingly inept 
'55 Washington Senators, one reason 
why there's no team in the nation's 
capital today. 

Each team comes with a suggested 
lineup. Onscreen menus help a man- 
ager switch things around to suit per- 
sonal preference. The program pro- 
vides mounds of statistics to aid in 
the selection process. Won-lost rec- 
ord, games saved, ERA, games 
pitched, complete games, innings 
pitched, hits allowed, strikeouts, and 
walks are listed for all pitchers. The 
rest of the team members are rated 
for batting average, home runs, runs 
batted in, times at bat, hits, doubles, 
triples, stolen bases, and field aver- 
age for any positions they can patrol 
on the field. 

The defensive pilot chooses the 
hurler's delivery from among four 
possibilities and positions the infield- 
ers. They can also call for a pitch- 
out, order an intentional walk, or vis- 
it the mound. 

The offensive manager can have 
the batsman swing away or lay down 
a surprise bunt. The skipper directs 
traffic on the basepaths and can or- 
der a sacrifice or hit and run. 

Players view the action from a seat 
in the upper deck behind home plate. 
Small windows indicate who is at bat, 
on the mound, and in the on-deck cir- 
cle, while the centerfield scoreboard 
prints pithy comments as the game 
progresses. Although the players are 
drawn small on the screen, wonder- 
fully intricate animation makes their 
movements easy enough to follow. 

Sound effects and music are more 
than adequate, but they slow down 
play. Computerists can cut playing 
time to about 30 minutes by hitting 
"M" when prompted. This clips the 
lengthy musical interludes and the ad- 
mittedly impressive spectacle of hav- 
ing the ballplayers run on and off the 
field after each half-inning. 

Micro League Baseball's flaws are 
few, but still worth mentioning. The 
inaugural edition doesn't print a box 



score or allow teams to swap players. 
The company has released a Utility 
Disk, priced at $19.95, which adds 
these functions. 

The pitching system has a few 
kinks. Each throw merely symboliz- 
es one complete interaction between 
a hiner and pitcher, so it's not realis- 
tic to call the hypothetical toss a 
"curve" or "fastball." Also, many pre- 
World War II pitchers didn't throw a 
slider. Perhaps this option on the 
pitching chart could be made more 
flexible to allow for a "specialty" pitch 
like a forkball or knuckler. 

Documentation is outstanding. 
There is a rule book, profiles of all 
clubs on the Game Disk, and two 
cards which summarize the keyboard- 
based order-entry system. 

Micro League Baseball is highly 
recommended for baseball-loving 
computerists. It provides plenty of 
mental stimulation and authentic ac- 
tion in an attractive package. 

Micro League Sports Association, 

28 E. Cleveland Avenue, Newark, 

DE 19711 (phone: 800-PLAYBAL). 

—Arnie Katz 

PENMAN ROBOT PLOTTER 
Axiom Corporation 
Commodore 64 
$399.00 

When I discovered that the Penman 
plotter had arrived for review, I was 
ecstatic. This plotter appeared to be 
one of the most exciting peripherals 
to come along in a while. 

Traditional plotters have a pen that 
moves about over a piece of paper by 
means of a rail in each direction (x 
and y). More recently, plotters have 




Reduced-size version of Penman plot. 
READER SERVICE NO. 103 




Ahoy! uses only 

maxell 

premium quality disks. 



We're sure you're looking forward to trying out the programs in this issue of 
Ahoy! But we're equally sure that you're not looking forward to typing them in. If 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How !ong that will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price of, say— 32C 
an hour? Wouldn't it be worth 32<t an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 
Cassette, you'll be getting that service for just under 32C an hour. Because for S7.95 (postage 
included)! we'll mail you all the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20. If you subscribe, you'll save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149.95 (postage included)*. Back issues are available as 
well. • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? 'Canadian and foreign prices higher. 
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SINGLE ISSUE AND SUBSCRIPTION PRICES 

(Postage and Handling Included) U.S.A. CANADA ELSEWHERE 

□ Juiy '85 Ahoy! Disk 

□ July '85 Ahoy! Cassette 



$ 7.95 



$ 10.00 



$ 12.00 



BACK ISSUES $8.95 

(except months listed) 

In Canada add $2.00 per issue; outside US 
and Canada add $4.00 per issue. 



_| 12-Month Disk Subscription 
L) 12-Month Cassette Subscription 



$ 79.95 



$ 99.95 



$124.95 



□ Jan. '84 
Q 



[_i 24-Month Disk Subscription 
[_) 24-Month Cassette Subscription 



$149.95 



$179.95 



a. 



$9.95 Q. 

$8.95 Q. 

$8.95 Q. 

$8.95 Q. 



$8.95 

$8.95 
$8.95 
$8.95 



□ Best of '84 (disk only) $ 10.95 $ 10.95 $ 10.95 

Make check or money order payable to Double L Software. NY. State Residents must add B%% sales tax 



SPECIFY 

□ DISK Q CASSETTE 



Send coupon or facsimile to: 
Ahoy! Program Disk/Cassette 
Ion international Inc. 
45 West 34th Street, Suite 407 
New York, NY 10001 



NAME, 



ADDRESS. 
CITY 



STATE. 



.ZIP. 
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Abacus Software 
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Brother International Corp. 
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Custom Programming Group 
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Electronic Arts 
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The Knnon Corporation 
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sported a pen (hat moves only in the 
x direction, while the paper moves 
to provide y-axis movement. The 
Penman is completely different. It 
features an intelligent base unit con- 
nected to a "robot" via a ribbon ca- 
ble. This robot holds three pens and 
plots by rolling around on top of the 
fixed plotting surface. 

The Penman is ingeniously engi- 
neered. It has two wheels that drive 
it. and one unrestricted wheel for bal- 
ance. When initialized, the Penman 
aligns itself with the edges of the pa- 
per by rolling toward the edge until 
its bottom optical sensors detect a 
contrast difference between the pa- 
per and background; then it backs up, 
turns, and seeks the other edge. All 
this is purely fascinating to watch. 

The Penman can be told to plot in 




A reduction of another Penman plot. 

two ways: by Cartesian coordinates 

or polar coordinates. Plotting each 
way is very simple. The plotter is 
simply given a set of coordinates, or 
a direction and distance. Smooth cir- 
cles are drawn in polar mode by giv- 
ing a curvature parameter. An addi- 
tional robotics mode gives you direct 
access to the drive motors and opti- 
cal sensors for more direct control of 
the robot unit. A standard character 
set is also built into the plotter. Text 
can be plotted at various sizes and an- 
gles with ease. 

Interestingly enough, all lines, cir- 
cles, and shapes drawn by the Pen- 
man are completely smooth, in con- 
trast to the stepped lines drawn by 
other inexpensive plotters. This is due 
to the fact that the Penman draws by 
continuously varying the speed of its 



two drive motors to produce smooth 
plots. Another interesting feature of 
the Penman is its ability to "unwrap" 
itself automatically from the connect- 
ing cable. 

The only gripe I have with the Pen- 
man is that on complex plots accur- 
acy is lost. One way around this is 
to have the robot realign itself every 
so many moves, but this takes time. 

The Penman interlaces through any 
RS232 port and is driven by standard 
ASCII commands. At a price of 
S399, it is a surprising value in a low 
cost plotter. 

Axiom Corporation , 1014 Griswold 
Avenue, San Fernando, CA 91340 
(phone: 818-365-9521). 

—David Barron 

VISION BBS V8.3 
Vision Software Co. 
Commodore 64 
Disk; $69.95 

As the System Operator (SYSOP) 
of this magazine's bulletin board ser- 
vice (BBS) and longtime SYSOP of 
my own BBS. I have spent a great 
deal of time examining the BBS soft- 
ware currently available for the Com- 
modore 64. With the wide variety of 
BBS's now in use, choosing the soft- 
ware that offers the best value for 
your money is not simply a matter 
of buying the most expensive you can 
find. Fortunately. Vision Software has 
recently released an outstanding en- 
try into the marketplace. 

Vision BBS V8.3 offers all the fea- 
tures you would expect of a good 
BBS, combined with a price tag that 
won't destroy your budget. With fea- 
tures such as new style Punter up and 
downloads, up to 99 different mes- 
sage bases, and a userlog that can 
hold up to 999 users, plus the ability 
to work with as many as five drives, 
this software is a joy to use. Though 
the clear, well-written documentation 
claims a setup time of I hour, those 
of you who are new to bulletin boards 
should allow a little extra time to plan 
out the many different menus that 
must be written. 

Once the various menu files have 
been created, the BBS is ready to go 
online. The first user entered should 
naturally be the SYSOP. and subse- 
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quent users are added to the userlog 
as they call in. Each user is required 
to choose an 8-digit password and is 
assigned a user code as well. New 
users may be given a low access lev- 
el until the SYSOP has time to exa- 
mine their application, whereupon 
their security level can be raised to 
allow them access to more features 
on the BBS. Security levels can range 
from a low of 1 to a high of 99. 

One especially useful feature of this 
software is the ability of the SYSOP, 
and selected users, to control the op- 
eration of the BBS from a remote ter- 
minal. By selective use of high ac- 
cess levels, the SYSOP can allow var- 
ious users to log on and control in- 
dividual areas of the BBS from their 
homes. This reduces the amount of 
time the SYSOP must spend main- 
taining the BBS and updating the 
files. 

Another very interesting function 
of this program is that it can also be 
used as a terminal program, allow- 
ing the SYSOP to log on to other 
BBS's to trade files and information 
without the need to load in a differ- 
ent program. This feature alone is, 
in my opinion, worth half the cost of 
the software. 

One drawback that I noted while 
setting up my preliminary copy of the 
BBS is the lack of a text editor, which 
is required to generate the various 
menus used. A quick call to the 
manufacturer brought swift assuran- 
ces that all future versions will in- 



clude not only a text editor but a tim- 
ing system that will remove the BBS 
from the phone line at a predeter- 
mined time if you choose to run your 
BBS on limited hours. 

Persons interested in viewing this 
software before buying may call the 
Ahoy! BBS at (718) 383-8909, 24 
hours a day, 7 days a week. 

The current price for the software 
is $69.95, and registered owners can 
purchase a backup copy for an addi- 
tional $10.00. Future updates will also 
be made available to registered own- 
ers at a cost of $25.00. More infor- 
mation may be obtained by calling the 
Docs 'R' Us BBS at (914) 668-3664, 
or by writing the manufacturer at the 
address given below. 

When ordering, please specify 
which type of modem you plan to use. 
There is a $10.00 charge to change 
modem types at a later date. 

Vision Software Co., P.O. Box 534, 

Bronx, NY 10461 (phone: 212- 

829-1538 voice; 914-668-3664 data). 

-B.W. Behling 

SOUNDCHASER 64 

Passport Designs, Inc. 
Commodore 64 
$199.00 

At first glance, the Soundchaser 64 
musical keyboard appears to be first 
rate. Unfortunately, the supplied soft- 
ware doesn't enable the keyboard to 
live up to the expectations set by its 
appearance. 

To start on the positive side, the 



keyboard is a full-sized 4-octave unit 
with an excellent feel. The housing 
is attractive tan plastic, matching the 
Commodore. Connection to the com- 
puter is made via a ribbon cable to 
the cartridge port. Overall, this is one 
of the finest keyboards I have en- 
countered. 

The BASIC Synthesizer Software 
provided includes a monophonic and 
a polyphonic synthesizer. The mono- 
phonic package is reasonably good; 
it allows all oscillators to play in uni- 
son, producing a very 'fat' sound. Ad- 
ditionally, there is a LFO (low fre- 
quency oscillator) that can be used to 
produce vibrato and other special ef- 
fects. Thirteen presets, which can be 
modified at will, are included. They 
are good, but I was able to improve 
on most of them through the includ- 
ed sound editor. 

The polyphonic synthesizer allows 
you to play the keyboard with up to 
three notes pressed at once. Six pre- 
sets are included; they are fair, none 
being very impressive. The limitation 
on the presets is caused by the lack 
of any special features as found on 
the monophonic package. 

Neither package makes any provi- 
sion to 'record' in any way. Modified 
presets cannot be saved to disk, and 
the mono/poly programs are separate 
and not directly accessible from one 
another. Fortunately, Passport told us 
that they will release versions of 
Macmusic and Computer Sheet Mu- 
sic that will take advantage of the 
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Soundchaser, Hopefully, these will 
make an improvement in a device 
with great potential. 

Passport Designs, Inc., 625 Mira- 
montes Street. Suite 103. Half Moon 
Bay, CA 94019 (phone: 415- 
726-0280). -David Barron 

VIZASTAR INFORMATION 
PROCESSOR 

Solid State Software 
Commodore 64 
Cartridge and disk; $119.97 or 
$149.97 (see below) 

"Innovative," "awesomely powerful," 
"sorely needed," and "incredible guar- 
antee" are phrases I immediately as- 
sociate with VizaStar. These words 
aptly summarize this unique "work 
processor." Other apropos descrip- 
tors: "humongous cell capacity," "im- 
pressive graphics." "multiple window- 
ing," and "easy-to-use;" the list goes 
on and on, but you have the idea: this 
is a program unlike anything else for 
the C-64! 

VizaStar is an integrated software 
package; that is, it consists of three 
programs that work interactively. Re- 
siding simultaneously in memory, the 
spreadsheet, database, and business 
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10 DISKETTES 

OR 

20 C-20 CASSETTES 

A subscription lo the 'Cassette of the 
Month' gets you a tape or disk full of 10 
quality Commodore 64 programs deliv- 
ered to you by first class mail every month. 
The documentation included will help you 
run great utilities like 'Word Processor,' 
and 'Budget Analyzer, or enjoy great 
games like "Frogjump' and 'Caterpillar 
Cave' FOR AS LITTLE AS 50 CENTS 
EACH! 

• Limited offer • Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free S'A single sided double 
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TAPE DISK 
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computer owners pebsonai checks welcome- 

* Commodore 64 required 
T & D Subscription Software 
P.O. BOX 256-C 
HOLLAND, Ml 49423 __ 
(6:6)396-7577 
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graphics programs are always im- 
mediately available. Each is outstand- 
ing in its own right. By integrating 
their features, Solid State Software 
has provided tremendous capabilities 
for information handling on the C-64. 
The only comparable product would 
be Lotus 1-2-3 for the IBM PC; noth- 
ing in the C-64 world comes close 
to the vertical integration features of 
VizaStar. 

The terms information processor 
and work processor, used by Solid 
State, describe not only what VizaStar 
is, but what it does. 

All functions and applications for 
the program are menu-driven, and se- 
lections are supported by sub-menus. 
The basic display consists of a work- 
sheet grid, and all labels, data, for- 
mulae, etc. are entered on it. Multi- 
ple windowing capability (up to 9 
windows "open" at a time) allows 
viewing several portions of the work- 
sheet simultaneously for comparison 
or reference purposes. 

The program will support most 
popular printers suitably interfaced. 
Although a printer isn't mandatory to 
use VizaStar, it certainly is desirable. 
As of this writing (4/25), only the 
1541 Disk Drive is supported. 

The spreadsheet grid is a matrix 
of 10OO rows and 64 columns, yield- 
ing a maximum capacity of 64,000 
cells! Cell formatting either individ- 
ually or globally is provided in cur- 
rency, scientific, date, left- or right- 
justified, centered, integer, and gen- 
eral purpose formats. Additionally, 
they can be globally or individually 
protected from modification. 

Built-in functions for use in formu- 
lae include date processing and date 
calculations, in addition to the nor- 
mal + - * / mathematical operators. 
The date functions are extremely use- 
ful and can be used for schedule plan- 
ning, invoicing, "time-stamping'" data, 
and multitudes of other applications. 
The built-in functions consist of: 

CALENDAR: ©date, ©day, 
©month, ©year, ©today 

LOGICAL: ©false, ©true, 
©isna, ©iserr, ©if, ©err, @na, 
and, or, not 

MATHEMATICAL: ©abs, 
©cos, ©exp, ©int, ©log, ©round. 



©sin, ©sqrt, ©tan, ©pi 

STATISTICAL: ©avg, ©count, 
©max, ©min, ©sum 

TABLE LOOK-UP: ©hlookup, 
©vlookup 

A very powerful feature of VizaStar 
is the automatic keyboard "EXEC" 
facility. This allows you to set up a 
sequence of commands which can be 
executed at any time, further expand- 
ing the program's range of complex 
applications. 

Database operations are called up 
from the worksheet, and a collection 
of up to 15 indexed files is possible. 
Each file holds records which can be 
up to 8,000 characters in length. The 
records may contain up to 64 differ- 
ent fields, and the fields can be up 
to 120 characters long. The average 
disk access time for any random rec- 
ord is three seconds on the 1541, fast 
enough to be envied by some "dedi- 
cated" database programs. 

Database file layouts are easily 
configured on a blank screen and re- 
versed headings and borders are pos- 
sible. You can include up to nine 
screens per file layout, more than suf- 
ficient for just about any application. 

All database processing is direct in 
the program, and search criteria may 
be combined if desired. Search op- 
erators include: 

*— wild card match 

?— individual character position 
match 

& — match if following characters 
are found 

< — less than match 

> —greater than match 

< — ignore/do not match 

Business graphics functions allow 
translating spreadsheet/database in- 
formation into line and bar graphs, 
and windowing is permitted and sup- 
ported in this mode as well. Addition- 
ally, the XGP (Extended Graphics 
Package) is included with the pro- 
gram, which provides two impressive 
and sophisticated graph modes -col- 
or "pie charts" and 3-D, 4-way-scroll- 
ing "skyscraper" graphs. These 
graphing formats are the best I've 
seen yet for the C-64, bar none. 

The XGP graphs (pie & skyscraper; 
may be labeled and printed out di- 
rectly on a Commodore MPS 801 or 
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Epson-compatible printer with suit- 
able interface. Line and bar graphs 
are supported on almost all popular 
printers suitably interfaced. The 
printer functions will also support 
printing reports and labels. 

VizaStar is extremely fast in terms 
of records access speed and overall 
operation due to the fact that it is 
written in 100% 6502 Machine Lan- 
guage. It is compatible with most 
word processors for the 64. 

The VizaStar software resides both 
on cartridge and disk; the cartridge 
must be inserted while using the pro- 
gram. Two copies of the program 
disk are provided. In addition, a Tu- 
torial Guide manual and a spiral- 
bound User Reference Guide manual 
are included, all inside a partitioned 
vinyl case that provides convenient 
and durable storage. Rarely do you 
find documentation equal to the cali- 
ber of the software it pertains to. 
VizaStar gets a solid 4-star rating in 
this department. 

VizaStar has a retail price of $119.97 
(version XL4; see below), not expen- 
sive when you consider that a good 
database will cost you about SIOO, as 
will a spreadsheet with decent graph 
capability, but not a small piece of 
change, either. Solid State Software 
is so confident in the product that 
they offer a full refund for any rea- 
son by returning it to the place of pur- 
chase within 15 days. After using 
VizaStar, I predict that Solid State will 
have very few refunds to make. 

Though it's an incredibly powerful 
piece of integrated software, I found 
VizaStar quite simple to use, thanks 
to the excellent tutorial and reference 
manuals. The onscreen menus and 
sub-menus present the program op- 
tions and functions in a clear, logi- 
cal manner. Learning to use VizaStar 
is painlessly accomplished by follow- 
ing the tutorial guide and entering the 
examples. Unique features like the 
EXEC facility make it possible for 
novices to set up and execute com- 
plex command sequences. 

Owing to the far-ranging capabili- 
ties of the program, it can be used 
for all sorts of applications. I found 
it particularly well suited for plan- 
ning, projecting, visual analysis of 



data, scheduling, maintaining cus- 
tomer records, mailing lists, generat- 
ing reports, and other information- 
handling tasks. I'm sure that the use- 
ful applications of VizaStar are limi- 
ted only by the user's imagination. 
If you're looking for a serious ap- 
plication program to handle your 
spreadsheet, database, and business 
graphics tasks, your search has ended. 



VizaStar does it all, and does it all 
amazingly well. 

(VizaStar is available in two ver- 
sions: the standard XL4 with 10K of 
free RAM ($119.97) and the XL8 with 
14K of free RAM ($149.97).) 

Solid State Software, 1125 E. Hills- 
dale Blvd., Suite 104, Foster City, CA 
94404 (phone: 415-341-5606). 

—Tom Benford 
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Since November 1984, Mr. Nibble has- 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 
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The next generation in archival 
methods is here today! 

• No better disk copier at any price 

• Easy-to-use — no complicated 
instructions 

• Totally automatic — no knowledge 
of DOS required 

• You'll LOVE MR. NIBBLE" — if not. 
return within 10 days for lull refund 

Own THE FINEST DISK COPIER SYSTEM for 
The C-64 and 1541 disk drive - 0nde^i todou ! 
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AHOY! 69 



a Breakthrough in Value ! 

ULTRABYTE 

DISK DUPLICATORS 
with FREE BACKUP COPIES 



ULTRABYTE NOW OFFERS TWO OF THE BEST COPY 

PROGRAMS ON THE MARKET, AND BOTH COME WITH 

FREE BACKUP COPIES. 



ULTRACOPY II 



Jim Lagerkvist's sequel to the original ULTRACOPY 64 
owned by thousands of satisfied customers. 

Copies protected disks in 8 minutes on a single 1541 

Does not "hammer" the disk drive. Will not affect alignment 

Formats, copies and produces errors automatically in one step 

Features Normal Scan for reliable copies of most disks 

Includes Deep Scan with 38 track and half track capability 

Copies 99% of programs on the market 

Free backup copy - two disks for the price of one 

Technical support available by telephone 

Simple to use. Tone signals disk swaps 



ULTRABYTE DISK NIBBLER 



Uses proprietary revision of disk operating system (DOS) to make 
a bit by bit copy. This process, called nibbling, copies the format, 
data and errors, all at the same time. Errors are not recognized 
and do not hammer the drive. Built in fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35. 36, 37 or 38 tracks to copy incl. half tracks 

• Makes up to 5 copies of each original — (UNIQUE FEATURE) 

• Backs up 99% of all software 

• Free backup copy - two disks for the price of one 



FREE BACKUP DISK 



ULTRACOPY II and the NIBBLER are Independent products by different authors. Both 
are excellent and either should meet your needs. You may order two disks of one 
product for S 39.95 plus S4.00 shipping and obtain a single disk of the other tor 
$20.00 plus $3.00 shipping. Sorry, free backup must be same as disk purchased. 



FOR 2 COPIES OF EITHER 
ULTRACOPY II OR THE DISK NIBBLER 



plus S4.0D shipping and handling. Mastercard. Visa. Check or H.O.. Foreign orders 
or COD add $2.00. Calif, add 6.5% [$2.60] sales tax. Additional backup copies are 
S 20.00 plus $ 3.00 shipping 

ATTENTION: Owners of ULTRACOPY or the NIBBLER whose names are In our Hie 
may order a single copy ol either product for $20.00 plus $3.00 shipping. 

Write or Call 24 Hour Order Line 

ULTRABYTE (818) 796-0576 
P.O. Box 789 La Canada, CA 91011 
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ON STAGE ($24.95) 
MUSIC VIDEO HITS ($24.95) 
3001 SOUND ODYSSEY ($39.95) 
Sight & Sound Music Software 
Commodore 64 
Disk 

"Just let me hear some of that rock 
& roll music, any old way you choose 
it." 

Any old way? Chuck Berry might 
have had a few second thoughts if he 
had anticipated the invention of the 
home computer. Thirty years after 
those words were written, rock and 
roll has transcended the world of 
electric guitars and drums and en- 
tered to world of microprocessors. 
One of the first examples of this phe- 
nomenon to reach the marketplace is 
Sight & Sound's new "computer song 
albums." 

It was only a matter of time before 
somebody figured— 'Kids love rock, 
kids love computers, the C-64 has 
tremendous musical capabilities, so 
let's turn some rock songs into com- 
puter-generated music." 

That's exactly what they've done. 
On Stage and Music Video Hits are 
essentially collections of recent pop- 
ular songs translated for computers. 
Music Video Hits includes Thriller, 
Let's Hear It for the Boy, Sweet 
Dreams. Break My Stride. Steppin' 
Out, Soul Man, Classical Gas, and 
The Hustle. On Stage features On the 
Road Again, Ease on Down the Road, 
Rise, Duelling Banjos, Canlina Band 
(from Star Wars), Entertainment To- 
night, Charlies Angels, and Far from 
Over. 

As the Commodore's SID chip 
pumps out the music, the "sheet mu- 
sic" appears onscreen. Notes don't 
scroll by, they sort of flash on and off 
in musical phrases. After a three-note 
phrase is finished, the notes disap- 
pear and get replaced by the next 
three. At the bottom of the screen you 
see the words to each musical phrase, 
as well as the words to the next 
phrase. 

The music itself has been compe- 
tently programmed by Peter Engel- 
brite. Each of the Commodore's three 
voices can be distinctly heard, which 
is intriguing to listen to. With most 
rock music, it's very difficult to sep- 
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arate the various instruments in your 
head. 

Synthesizers are adding a new di- 
mension to music, as is obvious from 
recent songs by Herbie Hancock. 
Thomas Dolby, The Eurhythmies, 
and others. But simply taking a song 
and synthesizing it is not necessar- 
ily an improvement. Just the oppo- 
site, in fact. Digitized Thriller is in- 
teresting at first, but after a few min- 
utes you get the distinct reeling that 
you're on an amusement park carou- 
sel ride. The music is machinelike, 
automatic. The human emotion is 
missing. It's the Muzak-rock of the 
1980s. 

Whenever we complain about 
computer-generated anything, we can 
usually add, "But this is more than 
compensated for by the computer's 
ability to interact with the user." Un- 
fortunately, this isn't the case with 
Sight & Sound's computer song al- 
bums. Hitting the number keys on the 
top row nil! speed the music up and 
slow it down. Manipulating the joy- 
stick will slightly change the "instru- 
ments" and create "special effects." But 
the interaction is minimal. You can't 
edit the notes to Soul Man and add 
a few licks of your own. 

Sight & Sound does make two 
other programs— Tlie Music Proces- 
sor and Tlie Music Video Kit— which 
are compatible and allow more crea- 
tivity when combined with the com- 
puter song albums. Both are sold sep- 
arately. But if you buy the computer 
song albums alone, you're basically 
just getting rehashed rock, at four 
times the cost of a regular album by 
the original artist. 

You've got to really like computer 
music to go for a deal like that. Sight 
& Sound's selection of songs certain- 
ly doesn't make it easy. Admittedly, 
there are some good tunes here, but 
each disk is a random hodgepodge of 
musical styles that is guaranteed to 
please nobody. Do fans of Joe Jack- 
son's Steppiri Out really want to hear 
Tlie Hustle... or vice versa? Willie 
Nelson fans will certainly get into On 
the Road Again, but do they care 
about Ease on Down the Road? Ma- 
son Williams' Classical Gas is a good 
song, but get hip, gang— it's 17 years 



old! And why anyone would ever 
want to hear computerized renditions 
of the themes from Entertainment To- 
night or Charlie's Angels defies the 
imagination. Even K-Tel wouldn't re- 
lease an album with selections like 
these. It seems as though Sight & 
Sound just threw on any songs that 
were available to license. 

The heart of rock and roll is still 
beating, but not on floppies. Real mu- 
sic lovers should stick with the real 
thing. 



But real music lovers may be in- 
terested in another disk made by Sight 
& Sound —3001 Sound Odyssey. 
Many of us are familiar with terms 
like volume, pitch, waveform, and 
envelope. These are the physics of 
sound that make, for example, a 
trumpet sound different from a piano. 
Though you may have heard of all 
these terms, chances are you don't 
fully understand them. Dictionary 
definitions don't help much when it 
comes to vague, non-visual concepts. 

If only we could manipulate wave- 
form or envelope ourselves these con- 
cepts would become clear. The com- 
puter is the perfect medium to active- 
ly experiment with the physics of 
sound. 3001 isn't a music program 
like Music Construction Set or Musi- 
cede. It's a synthesizer that teaches 
you and shows you how to play with 
the parameters of sound. The pro- 
gram includes an excellent tutorial 
that explains all the terms and pro- 
vides examples of each. After each 
section, you can get a "Show Me" or 
a 'Try Me" demonstration. 

Once you learn the difference be- 
tween "modulation" and "pulsewidth," 
switch to the "microsynth" mode and 
go crazy, A tap of the joystick lets you 
rum the Commodore's three voices on 
and off. play with filters and modu- 
lation, and manipulate all the ele- 
ments of sound. Change the wave- 
form from "sawtooth" to "pulse" and 
see what happens. The top two rows 
on your keyboard form a mini-piano 
keyboard that will let you create an 
unlimited number of sounds, from 
beautiful music to awful noise. If 
you're interested at all in the creation 



of music and sound effects, you'll find 
3001 Sound Odyssey an educational 
and fascinating experience. 

Sight & Sound Music Software. 
Inc.. 3200 South 166th St.. New Ber- 
lin. WI 53151 (phone: 414-784-5850). 
— Dan Gutman 
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7 think the personal computer is 
getting a little too personal." 
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COMMODORE 64 

TAROT 

COMPLETE 78 CARD DECK 

KELTIC LAYOUT 

DIVINATION 

I CHING 

ALL 64 HEXAGRAMS 

ALL MOVING LINES 

AMERICANIZED 

VOO DOO 

SUMMON LOAS 

CAST SPELLS 

DOLLS 



DISK ONLY- $30 EACH 



WARESOFT 
SOFTWARE 

BOX 6 
CHEWELAH WA 99109 



Reader Service No. 132 
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WHITE HOUSE ,»»— "1-717-322-7700 
COMPUTER 



P.O. BOX 4025, 

WILLI AMSPORT, PA 17701 



HOURS: Monday thru Friday 9:00 am till 6:00 pm 

VISA and MC 
Accepted 4% 



DISK DRIVES 
C-64 

1541 185.95 

1571 249.95 

1572 375.95 

MSD Single ....229.00 

MSD Dual 459.00 

Indus GT 239.00 

CardcoSCD-1... 199.00 

INTERFACES 

Tymac 
Connection/2K, .62.95 

Cardco -G 59.95 

Cardco B 37.95 

OR-D 

GPC w/2K 55.95 

GrapplerCD 89.95 

PRINTER PAPER 
Lazor 1000 shls... 15.95 
Lazor2500shts.., 29.95 

DISKETTES 3f 
SKC 

SS/SD 10.50 

SS/DD 13.50 

DS/DD 15.50 

MAWELL 

MD-1 15.95 

MD-2 21.95 

ELEPHANT 

SS/SD 13.50 

SS/DD 15.50 

DS/DD 19.50 

INNOVATIVE 
CONCEPTS 

Flip-N-File 

10 3.50 

15 8.50 

25 18.50 

w/lock 

50 17.50 

50 23.50 

ROM Holder... 17.50 

KOALA 

Pad Disk...... .39.95 

Pad ROM 45.95 



COMPUTERS 
C-64 149.95 

C-128 ...275.95 



PRINTERS 



C-64 

MPS 801 179.95 

802 208.95 

803 175.95 

MCS 801 314.95 

DPS 1101 314.95 

CITIZEN 

MSP-10 325 

MSP-15 479 

MSP-20 469 

MSP-25 629 

EPSON 

RX80 219 

LX80 249 

FX80 369 

JX80 529 

RX100 369 

FX100 550 

C. ITOH 

8510 A 285 

8510 BC1 329 

8510 BC2 389 

8510 BP1 339 

8510 SP 389 

8510SR 429 

8510SCP 459 

8510SCR 477 

1550 BCD 485 

1550 P 445 

A10-20P .....465 

F10-40P/S 875 

F10-55 P/S 1059 

F10 Tractor 169 

F10 Sheet Feeder 349 



MANNSEMAN TALLY 

Spirit 80 249 

MT 1 60L 495 

MT 180L 595 

STAR MICRONICS 

SG10 217 

SG15 379 

SD10 345 

SD15 450 

SR10 485 

SR15 585 

Powertype 309 



CARDCO 
LQ 1 

*LQ 3. 



...365 

209 



PANASONIC 

1090 187 

1091 257 

1092 389 

1093 585 

3151 455 

LEGEND 

880 209 

1080 229 

1380 269 

1385 305 

OKI DATA 

I82 219.95 

84 640.95 

92 349.95 

93 560.95 

Imagewriter 425.95 



SOFTWARE * 

BATTERIES 
INCLUDED 

PaperClipw/Spell Pk... 69.95 

PaperClip 5900 

Home Pack 32.95 

Bus Card II 124.95 

B180 Board 99.95 

BRODERBUND 

Print Shop 29.95 

Graphics Library 18.95 

B.S. Writer 32.95 

EPYX 
FAST LOAD 23.95 



MONITORS 
AMDEK 

300G- 119 

300A 129 

31 OA 145 

Color 300 235 

Color 500 345 

Color 600 399 

Color 700 469 

Color 710 539 

TEKNIKA 

MJ-10 - 229 

MJ-22 285 

XTRON 

Comcolor 1 189 

ZENITH 

122 85.95 

123 75.95 

BMC 

Amber 82.95 

Green 79.95 

COMMODORE 

C-1702 199.95 

C-1802 204.95 

C-1902 RGB 259.95 

C-1901 Monchrome. . . 129.95 



VIDEO CASSETTE + * 
RECORDER $2 95; 

Symphonic VHS/Remote 

• 105 Channel Cable Ready 

• 1 4 Day / 1 Program Timer 

• 12 Pre-set Channels 

• Auto Rewind CHECK 
Plus much, much more! PCJR PRICES! 




MODEMS 

C-1600 44.95 

C-1650 54.95 

C-1660 54.95 

C-1670 185.95 

300/1200 Band 



PRINTER RIBBONS 

DGST COVERS 



Cardco 

MOD-1 59.95 

C-64 

MPP-1064 ...65.95 

Tele 

Learning 49.95 



Mitey Mo ...59.95 
Westridge. ..69.95 
CompuServe 
Starter Kit... 21.95 



WE CARRY A RJLL LIME OF; 

Batteries Inc.. Broderbund. Contineal. Hess. Infocom. 
Innovative Concepts, Koala, LJK, Microbits, Micro- 
pose, Microtek, O.S.S.. Professional S.W. Scarborough, 
S.S.I., Synapse. Time Works. Wico. 



POLICY: No deposit on COD orders. FREE freight on 
all prepaid cash orders over S300 in the continental 
USA. APO and FPO add S5 per hundred. For priority 
Mail add S8 per hundred. PA Residents add 6°o sales 
tax. Defeclive products must have Prior RA number. 
Schools net 1 5. Readef Servlee No . , 73 



SCREEN DUMPING ON THE COMMODORE 64, 

PART II 

Etchs A Bit Graphics Sketching Prog ram 



including Squares Game for the 64 



Probably all of us have, at 
some time or another, 
played with Ohio Art's 
"Etch-a-Sketch." The Etch 

program described here allows you 
to create similar pictures on your 
Commodore monitor, but with sever- 
al additional features. And perhaps 
most important, it allows you to print 
the screen image on your printer. 
(The printing feature was written for 
a Gemini 10 or 10X printer; use with 
other printers will require some mod- 
ification to the program.) 

Screen Dumping on the Commo- 
dore 64, in the June '85 Ahoy!, in- 
troduced the principles of screen and 
printer bit graphics, and demonstra- 
ted how to transform a screen bit map 
into one accessible by an 8-pin dot 
matrix printer. Readers interested in 
the details of bit map creation should 
consult that article. The present pro- 
gram uses similar machine code rou- 
tines for memory manipulations and 
printing. But the bulk of the program 
is written in BASIC and can be read- 
ily understood. 

To get the program running, here 
is what you need to do; 

1) Move the beginning of your 
BASIC program with the following 
instruction: POKE 44, 64 : POKE 
16384, : NEW. 

2) Enter the program, instructions 
1-1190, as it appears on page 97. 

3) PEEK in 45 and 46 to deter- 
mine the location of the end of your 
program, then POKE in a value 210 
greater to accommodate the machine 
code. (See Part I last month.) 

4) RUN the program, and input the 
207 bytes of machine code listed at 
the end of the program. Do this slow- 
ly and carefully* 

5) Delete instruction 4. 

6) SAVE the program, then RUN it. 
*If you should ever want to list the 

machine code at the end of your pro- 
gram, use the following sequence: 



By Roger S. Macomber 

Professor of Chemistry 
University of Cincinnati 

4 OPEN 4,4,2 :CMD4 :J=0 

5 FOR I = TO 206: PRINT P 
EEK(S1+I);:J=J+1 

6 IF J>15 THEN PRINT CHR$( 
10);:J=0 

7 NEXT : PRINT#4 , : CL0SE4 : STO 
P 

We'll describe the game later, so 
answer "N" to the first query. You 
should see a white screen (blue bor- 
ders), and if you look very carefully 
at the upper left corner, you'll see one 
black dot indicating the position of 
your cursor. You can move this cur- 
sor up, down, right, or left using the 
normal cursor control keys. Notice 
as you practice moving the cursor that 
it is prevented from going off the 
screen. If you press F (Fast) the cur- 
sor will move 5 times as fast; press- 
ing S (Slow) will restore the slower 
movement. 

Now, to draw a horizontal or verti- 
cal line, press D (Draw) and your 
cursor will leave a line behind it as 
it traverses the screen. (When using 
the Draw function you must contin- 
ue one dot past the end of the desired 
line, because the last dot is erased 
when the draw mode is disabled.) To 
disable the Draw function, hit D 
again. Note that if you engage D in 





































































































































































Shown: a reduction of an actual dot 
matrix printout of a game of Squares. 



the F mode, you will draw a dotted 
line, while in the S mode, a solid line 
results. If you make a mistake, you 
have two options. First, pressing E 
puts you in the Erase mode and the 
cursor will erase any dot it crosses. 
So by retracing the offending line 
you'll see it disappear. The Erase 
mode is disabled by pressing E again. 
Or second, by pressing f7, the entire 
screen is cleared to begin anew. 

One further feature of the program 
allows you to draw straight lines at 
any angle to the horizontal. To draw 
such a line, bring your cursor to one 
end of the desired line and press I 
(Initial), then move your cursor to the 
other end of the line (anywhere else 
on the screen except directly above 
or below the initial point) and press 
D (Draw) L (Line). Immediately a 
line is drawn from the final point 
back to the initial point. Notice also 
that the D, E and L functions all op- 
erate in either the F or S mode. 

Finally, when you have created just 
the picture you want, you can print 
it (on a Gemini 10 or 10X only!) by 
simply pressing fl. 

SQUARES GAME 

Let's return to the game as prom- 
ised. To do this, it will be necessary 
to hold down the RUN/STOP key and 
press RESTORE, then RUN the pro- 
gram again. This time answer "Y" to 
the prompt. The screen will fill with 
a 10 dot x 10 dot array, and the cur- 
sor dot will appear near the middle 
of the screen. By using your cursor 
controls and the Draw function, each 
player alternates and tries to complete 
squares in the usual way. When a 
square is completed, the player iden- 
tifies it with some number of dots in 
its middle. The player with the great- 
est number of squares wins. The 
printed result of one such game is 
shown here; the author lost! □ 
SEE PROGRAM LISTING ON PAGE 97 
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Program Your Own EPROMS 
£^ 4 20 $99.50 

PLUGS INTO USER PORT. 
NOTHING ELSE NEEDED. 
EASY TO USE. VERSATILE. 

• Read or Program. One byte or 
32 K bytes! 

OR Use like a disk drive. LOAD, 
SAVE, GET, INPUT, PRINT CMD, 
OPEN, CLOSE— EPROM FILES! 
Our software lets you use familiar BASIC commands to 
create, modily, scratch files on readily available EPROM 
chips. Adds a new dimension to your computing capability. 
Works with most ML Monitors too. 

• Make Auto-Start Cartridges of your programs. 

• The promenade" C1 gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms, 15 bit chip addressing, 3 LED's and NO 
switches. Your computer controls everything from software! 

• Textool socket. Anti-static aluminum housing. 

• EPROMS, cartridge PC boards, etc. at extra charge. 

• Some EPROM types you can use with ihe promenade'" 

275B 2532 462732P 271 2B 5133 X2816A - 

2515 2732 2564 27256 5143 52S13 - 

2716 27C32 2764 68764 2615' 4S016P - 

27C16 2732A 27C64 68766 2B16 1 

p. "Ccnvno&ri* guiirwu Machines "Denotes decmeaiiy «*aseabi lypre 



Call Toll Free: 800-421-7731 or 408-287-0259 

In California: 800-421-7748 
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] JASON-RANHEIM 

580 Parrott St.. San Jose, CA 951 12 



Reader Service No. 163 



The Intelligent alternative 
to overpriced 64 rM software 

The Intelligent Software Package for C-64™, VIC™, SX-S4- W , C-iafl 1 ", 
LCD'", Plus 4™, 16™, B-128™. and PET/CBM 1M An integrated 
home/busjness/educatfonal package of 25 powerful, useful programs [total- 
ing over 51 pages of source code] that will put your Commodore to work 
right now, in your home or office; bII on disk or tape at the ridiculous price 
of 535, or about SI .40/program. One customer writes- ". This is as 
slick a deal as I have seen and more than adequate for af! except fancy 
presentations. The best thing is the ease of use . "The package includes: 
Database: A complete multi-keyed fixed- Also included RepartGen, ReportMerge 



record- length data base marager. Sort or 
select [usrg ai relational operators: . = . > . 
< , AND, OH, NOT, wild card) on any field, 
perform computations on numeric fields, 
Any operation can be performed on all. or 
only selected records All fields completely 
user-definabie Can be used for any number 
of tasks, including accounting, mailing lists, 
inventory control, record, tape, or book, 
cataloging, expense account maintenance, 
or as an electronic rolode*- Even if you use 
your Commodore for notnng else, this pro- 
gram alone might justify its expense- 
Word Processor: A fufl-featured menu- 
driven word processor including very fast 
file commands, Screen editing, text locating 
and full control over margins, spacing, pag- 
ing, indentation, and justification 
" . . . well done and highly func- 
tional . . Provides an excellent alter- 
native to the high priced word 
processors - - this is an excellent buy. 
Highly recontmended " - - Midnite Software 
Gazette "Provides good base features- " 
— Compute's Gazette 
Copycalc: An electronic spreadsheet 
Turns your Commodore into a vistole balance 
sheet, includes screen editor. "Excellent 
program for budgeting. estimating, or any 
math-onented use . . well worth the 
money- Highly recommended " — Midnite 
Software Gazette. 

Intelligent Software 

Quality Software smce 1 982 



interface W/P with Database to create 
form letters, statements, invoices, mailing 
labels, other reports J: Sasebarl Statist! 
ciari [compiles batting statistics for a 
baseball league], several W/P utilities, in- 
cluding Index [indexes W/P's text files], 
several Database utilities, including 
DBmerge (facilitates multifile database ap- 
plications .]. and DfiStat [analyzes D/B 
fiJes]; a programming utility, ASCII, which 
converts te«t files [program listings] into 
program files, also Checkbook. Inventory; 
Paper Route Loan Analysis. 
Breakeven Anafysis Depreciation. 
Labeler. File Copier, more. 
Versions of the package are available for 
every Commodore computer having a 
minimum of 1Dk RAM. please specify 
regular disk, 8050 disk, or tape format 
[disk only for Plus4'" and 1 6" ,) All programs 
support tape, disk, and printer; price in- 
eludes documentation and shipping Calif. 
residents add B%. Visa/ Mastercard, add 
S2. no personal checks from outside USA 
This ad us the catalog ; a sampling of program 
Output js available for $2 



Box A Dept. A-2 

San Anselmo, CA 94960 
[415)457-6153 
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By Morton Kevelson 

Is there any way to suppress the six line perforation 
skip on the Okimate 10 printer? I have tried changing 
my printer and interface without any results. I can con- 
trol the problem with WordPro 3 Plus/64 by setting the 
page length to 60 for eleven inch paper. This cannot be 
done with my General Ledger Accounts program from 
Integrated Software Series (IDI). I have also tried every 
possible way to access the printer's other text modes from 
within WordPro, but nothing seems to work. 

— George Eider 
Cornelius, OR 
George, 

Hold everything. Stop changing hardware with your 
dealer. There is nothing wrong with your printer or its 
interface. Ttie Okimate 10 powers up with the perfora- 
tion skip feature activated. This is described on page 11 
of the manual. The manual does not explain how to turn 
this feature off or on. However, the appropriate command 
codes are listed in the Command Reference Chart loca- 
ted on the inside back cover. To turn off the automatic 
perforation skip for use with any of the programs you 
mentioned, simply execute the following commands prior 
to running the program: 

OPEN 4,4 

PRINT#4,CHR$(27)CHR$(66) 

CL0SE4 

To turn the perforation skip back on, change the second 
line to: 

PRINT#4,CHR$(27)CHR$(65) 

These commands can be issued in immediate mode as 
shown, or they can be SAVEd and RUN as a short pro- 
gram by including line numbers. 

The difficulty with accessing the Okimate 10 special 
features from within WordPro is not a problem with the 
Okimate 10 printer, but apparently a limitation of 
WordPro. Page 9-6 of the manual indicates that the abil- 
ity to send special characters in CBM mode is limited 
to a value of 254. In addition, according to the manual 
for the Tymac printer interface, WordPro disables the spe- 
cial character mode when the "C" option is selected in 
response to the "Printer?" prompt. As a result, we must 
conclude that you will not be able to access any of the 
special features through WordPro 3 Plus. 

I own an MX-80 Epson printer with an 8145 RS232 
interface card installed to an HP computer via RS232. 
I would now like to interface the same printer (without 

Continued on page 114 



AUTOS: LEASING 



For the C -64 



^■■^ I ince I had not purchased a new car for several years, 
Kkb. the celestial sticker prices came as a complete 
^^^1 shock. The high monthly payments and steep in- 
: .- Jr terest rates were much more than I had anticipated. 
The salesman, noting my reaction, urged me to consider leas- 
ing. He argued that leasing was actually cheaper than buying. 
However, I wondered whether his claim was true. Would it 
be cheaper to lease a new car than buy it? 

I struggled with my hand calculator for several long hours 
before realizing that the problem was far too complex for a 
few simple calculations. Each auto had a different price and, 
consequently, a different monthly payment schedule. And there 
were so many lease plans available. Finally, I turned to my 
Commodore 64 to find a systematic and thorough way to make 
the desired comparisons. The result is this Leasing v. Buying 
program. Even if you're not in the market for a new car, you 
may find this program educational and interesting to run. 

The program produces tables showing the cost of owning 
a new car and the cost of leasing the same car. It tells you 
what information you need, makes the necessary calculations, 
and displays the results so you can decide whether it is better 
to lease or buy in your specific situation. The program can 
be run over and over so you can easily compare different 
makes, models, optional equipment configurations, and finan- 
cing arrangements with their respective lease plans. Although 
designed for screen display, the program can be modified easily 
to output to a printer if you wish to study the results. 

TYPES OF LEASES 

Despite the wide variety of names used, there are basically 
two types of leases available: closed-end and open- end. Under 
a closed-end lease, the monthly payments you make are for 
a specific period of time. When the lease period ends, you 
return the car and you have no additional financial obligation 
to the lessor. 

Under open-end leases, you agree to pay an additional 
amount if the value of the car at the end of the lease period 
is less than the amount estimated at the time the lease is signed. 
For example, suppose the lessor estimates that the car will be 
worth $3,850 at the end of the lease period. If its value at that 
time is only $3,300, you would have to pay the balance of S550. 
However, if it is worth more than $3,850, you should receive 
a refund. 

This program may be used for both types of leases. How- 
ever, most leases have a limit on the number of miles you are 
permitted to drive each year, usually around 15,000. If you ex- 
ceed this limit, you will have to pay an additional charge for 
the excess miles. The program assumes that you will stay with- 
in the miles limit. 

ENTERING THE INFORMATION 

After copying the program, type RUN and enter the infor- 
mation requested. Most of the requests are self-explanatory. 
However, a few words are necessary to insure accurate inputs. 
Naturally, the buying and lease information should be for the 
same make and model car in order to produce a meaningful 
comparison. 




V. BUYING 

By Gil Ragan 



The purchase price is the first item requested. For this entry, 
use the actual price the dealer would be willing to accept, not 
the manufacturer's suggested retail price. When entering dollar 
figures, do not use S or commas. Next you will be asked, 
WILL YOU NEED FINANCING? Type in a 'Y* if you expect 
to borrow part of the purchase money. An 'N' will cause the 
program to branch and skip the questions relating to loans. 

For the interest rate request, enter any fractional portion of 
the rate as a decimal. For example, 1514 percent should be 
entered as 15.25. The length of the loan should be entered in 
months. A four-year loan, for example, should be entered sim- 
ply as 48 for 48 months. Inputting the length of the loan this 
way lets the program calculate your monthly loan payments 
and interest charges. These calculations are made in lines 1030 
and 1040. 

If you live in a state that imposes a sales tax on autos, enter 
your state's rate when requested. Don't forget to enter the per- 
centage rate in decimal form. The sales tax in dollars will be 
computed automatically. For the license fee request, enter your 
best estimate if you do not know the actual amount. 

You are next asked what type of car you are considering. 
The reason for this request is that cars depreciate in value at 
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RESET SWITCH 



Only $19.95 




•BASIC RECOVER PROGRAM INCLUDED 
•Unlocks "Froztn" Program 
•Plugs Into Serial Port 
•Allows Full Use of Serial Port 
•Extends the Li£e of Your Computer 
•Compatible With Commodore 64 and VIC 
•1 Yfar Warranty 



HAIL CHECK OB HONEY ORDER TOi 
CA Residents add 6i sales tax 
$1.56 for shipping 



MICR0VATIDNS 

16496 BERNARDO CTft. DR. 

SUITE 305 

SAN DIEGO, CA 92126 



ADDRESS 
CITY 



Dwltr Inquires Welcomed Phone (619) 487-5107 
Reader Service No. 164 
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different rates depending upon their types. Average depreciation 
rates for the three major types of cars are stored in the sub- 
routine in lines 2000-2220. The number you enter here will 
select the proper group of rates for the type of car you are 
considering. 

One ownership savings frequently overlooked stems from 
the federal income tax. Interest charges on loans and state sales 
taxes paid are deductible for tax purposes if you itemize your 
deductions as opposed to taking the standard deduction (now 
called zero bracket amount). If you itemize, answer 'Y' to the 
question posed. This will be followed by a request for your 
percentage income tax bracket. You can find your income tax 
bracket by using the X, Y, Z Tables in the income tax booklet 
which is sent to you with your tax forms each year. 

The next section of the program will ask you to enter data 
about the lease you are considering. First, you will be asked 
to enter the amount of any refundable security deposit you are 
required to make. This will be followed by a request to enter 
the amount of the monthly lease payments. Include only the 
cost of the "pure" lease. If a service maintenance contract is 
included with your lease package, the cost of this contract 
should be subtracted to get the actual lease cost. 

Some leases require a non-refundable down payment or other 
charge at the beginning of the lease. If such a payment is re- 
quired, enter the amount as requested. 

THE RESULTS 

After all information has been entered, the program will first 
compute your net cost of buying and will display the results 
on the monitor. The display format will vary depending upon 
whether you pay cash or finance the purchase, and upon wheth- 
er you itemize deductions for income tax purposes or not. 
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CBUS Is the only system which permits the storing of ALL standard cartridge 
software designed for the Commodore 04 on disk and running software from disk. 
CBUS does NOT "crack" the software. The unique CBUS-II can emulate all of the 
standard cartridges, thus the software runs the same as in the original cartridge. 

CBUS $119.95 

(includes CBUSI. CBUS-II and CBUS SOURCE DISK) 
Additional CBUS-ll's are available lor S 84.95 

R.J. Brathmgn Associates, Inc. 
P.O. Box 1077, Havortown, PA 1*083 

ORDERS ONLY — 1-800-CBUS-C64 
TECH INFO — (21 S} 622-5495 
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If you do not need to finance your purchase, you will see 
an item called "Interest lost on purchase price." This item refers 
to the interest your money could have earned at bank passbook 
rates had you not bought the car. The interest you give up by 
spending your funds is one of the hidden costs of ownership. 
Incidentally, if you have been earning a higher interest rate 
on your money, insert that rate in line 1015 in place of the .055. 

If you finance the purchase, you will see a similar item "In- 
terest lost on down payment" instead. The same reasoning ap- 
plies to this cost of ownership. The bank passbook rate is in 
line 1020, and a higher rate can be easily substituted. For fi- 
nanced purchases, an additional line called "Total Payments 
on Loan" will be displayed. This line shows the total interest 
charges and loan repayments on the portion of the loan used 
to purchase the car only. Additional money borrowed for things 
like the license is excluded to avoid double counting. 

Next you will see some deductions. The car you buy should 
have a value at the end of the loan or lease period. This residual 
value is an estimate of the amount you should be able to obtain 
by selling or trading the car at that time. Consequendy, it must 
be deducted to obtain your net cost of buying. 

If you itemize your deductions for income tax purposes, the 
tax savings is computed and also deducted from the total cost 
of buying to give your net cost. 

The program will then compute the cost of leasing. Press 
'C to view the results. Again, note that interest lost on the 
security deposit and on the non-refundable down payment is 
computed and added to your cost of leasing. The security de- 
posit will be refunded to you at the end of the lease period, 
so it is deducted to find your net cost of leasing. 

Note that items such as insurance, repairs, maintenance, gas, 
and oil have been omitted. Under the standard lease, you must 
pay for these items just as you would as an owner. These items, 
then, would be the same in both calculations. For this reason, 
they are ignored, and the program concentrates only on items 
likely to be different depending on whether you lease or buy. 

THE FINAL COMPARISON 

Press 'C once more for a final display. First, you will see 
what your monthly loan payments will be. This is followed 
by the monthly lease payment which you entered. Don't be 
surprised to find that the monthly loan payments are higher 
than the lease payments. Such a situation will happen particu- 
larly if you are making a rather low down payment. This is 
what the salesmen mean when they imply that teasing is cheap- 
er than buying. 

The key comparison is found in the next two lines. They 
show your net cost of buying and your net cost of leasing. The 
final line of the program will tell you whether it is cheaper 
to lease or buy based upon the information you entered, 

PRINTER MODIFICATIONS 

One final note. If you wish to modify this program to out- 
put to a printer, delete lines 520 and 540. These lines merely 
introduce stops in the screen display. Then, for a VIC-1525 
printer, add the following: 

490 OPEN 2,4 

500 CMD 2 

750 PRINT#2: CLOSE 2 

If you have a different printer, consult your manual for the 
appropriate OPEN, PRINT, and CLOSE statements. □ 

SEE PROGRAM LISTING ON PAGE 100 
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WRITING & RUNNING AN 
ASSEMBLY LANGUAGE PROGRAM 

By Mark Andrews 



Writing a program in assembly language re- 
quires a software package called an as- 
sembler-editor, or simply an assembler. 
Three of the most popular assemblers for 

the Commodore 64 are: 

• The Commodore 64 Macro Assembler Development 
System, manufactured by Commodore. 

• The Merlin 64 assembler, manufactured by Roger 
Wagner Publishing, Inc. (formerly Southwestern Data 
Systems) of Santee, CA. 

• The Panther C-64 assembler, manufactured by Pan- 
ther Computer Corporation of Los Angeles. 

It wouldn't be fair to rate these in 1-2-3 order, since 
each has its advantages and disadvantages. But to help 
you decide which you'd like to use, here are brief de- 
scriptions of each: 

THE COMMODORE 64 ASSEMBLER 

An excellent package, designed by professionals for 
professionals, the Commodore 64 Macro Assembler De- 
velopment System (the Commodore 64 Assembler for 
short) works much like the large assemblers used with 
mainframes. Unfortunately, though, it isn't what I'd call 
user-friendly; in fact, it can be downright user-hostile, 
especially for people who are just starting to study assem- 
bly language. 

The Commodore 64 Assembler comes on a single 5 '4- 
inch disk. But there are several programs on that disk, 
and each time you write and assemble a program, you 
have to load and run several individual utilities -in the 
correct order. If you use the programs in the wrong se- 
quence, or make a mistake in using one program before 
you load the next one, you sometimes have to start the 
process all over again. That can be both annoying and 
time-consuming. 

THE MERLIN 64 

The Merlin 64 is an imaginatively designed assembler 
with a host of advanced features — some not available in 
any other C-64-compatible assembler system. For exam- 
ple. Merlin comes with a very sophisticated disassembler 
(a utility that can convert machine language into assem- 
bly language). Another bonus is a large library of use- 
ful assembly language routines that can be incorporated 



into user-written programs. 

Merlin is equipped to handle macros— prewritten rou- 
tines that can be easily inserted into assembly language 
programs— and has linking capabilities that enable the 
user to write programs ordinarily too long to fit into a 
Commodore 64's memory. And Merlin can be used in 
an 80-column format on a computer equipped with a 
high-resolution monitor and an 80-column card. 

THE PANTHER C-64 ASSEMBLER 

The Panther C-64 Assembler is even easier to use than 
Merlin— so it's a popular package, especially among new- 
er assembly language programmers. But it lacks some 
features that have become almost standard in assemblers 
— macro capabilities, for example— and for some reason, 
the displays and the programs listings it creates are al- 
ways printed in lower-case letters, a feature I find an- 
noying. Furthermore, the Panther consumes more mem- 
ory space than either the Commodore 64 Assembler or 
Merlin 64, and some of the memory space the assem- 
bler eats up is in blocks of RAM which I feel should 
be left free for user-written programs. 

On the positive side, the Panther is a joy to use; every- 
thing that it can do is directly accessible from the editor 
(a costly feature in terms of memory), and its assembly 
language editor has a beautifully engineered error-check- 
ing system that makes it almost impossible to write a bad 
line of code. And the instruction manual that comes with 
the program is very good; in fact, if I didn't own a Pan- 
ther assembler, I might be tempted to buy one just to 
get my hands on the tutorials in its manual. 

GOLDILOCKS & THE 3 ASSEMBLERS 

When I started writing this series of columns, it was 
difficult to decide whether to use the Commodore 64 As- 
sembler, Merlin or the Panther C-64. So I picked one 
by the Goldilocks method. After much experimentation, 
I concluded that the Commodore 64 Assembler was too 
big, the Panther was too little, and the Merlin 64 was 
just about right. So most of the programs you'll see in 
this column were created with Merlin. If you own some 
other kind of assembler, that's okay; with minor modifi- 
cations, the programs in these columns will work with 
any assembler compatible with the Commodore 64. But 
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for consistency, they'll all be written on a Merlin — and 
the column you're reading now. a tutorial on assemblers, 
will focus on the Merlin 64. 

And that brings us to our real topic: how to use an 
assembler (such as the Merlin) to write a Commodore 
64 assembly language program. 

USING THE MERLIN 64 

Merlin 64 can be loaded and executed like any other 
disk-based program. When you've successfully booted 
Merlins master disk, this menu will be displayed on your 
monitor screen: 



cursor. If you have Merlin up and running now, and if 
that's what you see on your screen, type an asterisk— nith- 
our any additional spaces in front of it. Line 1 of your 
program should then look like this: 



I * 



Merlin will then advance automatically to Line No. 
2. Following the numeral 2. again without any extra spac- 
ing, type 

* ADDNRS 



c 


: Catalog 


L 


: Load source 


S 


: Save source 


R 


: Read text file 


W 


: Write text File 


D 


: Drive change 


E 


: Enter ED/ASM 


O 


: Save object code 


G 


: Run program 


X 


: Disk command 


Q 


: Quit 



The choices on this menu can be used to instruct Merlin 

to do quite a few things — from loading and saving as- 
sembly language programs (choices ""L" and "S") to list- 
ing the names of (he files a disk ("C") to running a ma- 
chine language program ("G"). You can even format disks, 
scratch files from disks, and perform numerous other 
disk-management functions by choosing "X". 

To write an assembly language program, you have to 
pick menu choice "E". That will that Merlin out of its 
"executive" (menu) mode and put it into its editor-assem- 
bler mode, which can be used for both writing and as- 
sembling assembly language programs. 

When you've made menu choice "E" and put Merlin 
into editor-assembler mode, the menu on your screen will 
disappear, and you'll see a ":" prompt at the top of your 
screen. After that prompt, type 



—for -append." Merlin will display the number "I" on your 
screen. That "1" is an automatically generated line num- 
ber, and as soon as it appears, you can start typing an 
assembly language program. 

Let's pause for a word about line numbers. One Merlin 
feature (hat takes some getting used to is its automati- 
cally generating line numbers, beginning with number 
1 and progressing in increments of 1. So you never have 
to type a line number when you're using the program. 
And when you add or delete lines, ail affected line num- 
bers will change automatically. 

When Merlin generates and displays a line number, 
the number is always followed by a space and a flashing 



—and hit your RETURN key. Then, when Merlin advan- 
ces to Line 3. type another asterisk. 
This is what you should see on your screen now: 

1 * 

2 * ADDNRS 

3 * 
4 

In a moment, we'll discuss what those lines mean. 
First, though, let's get a little more familiar with Merlin. 

At Line 4. press your carriage return, and you'll see 
Merlin's ":" prompt again. Then you can type "A" (for 
ADD) again, and continue writing your program. Or if 
you prefer, you can type some other command: "L" for 
list, for example. This will list your program, in its en- 
tirety, on your screen. 

Another command that can follow the ":" prompt is 
"D" for DELETE. You would type the letter "D" followed 
by the number of the line (or lines) you want to delete. 
Suppose you wanted to delete Lines 2 and 3 in the above 
listing. You would simply type 

D2.3 

after the ":" prompt. Try it! Then restore the lines you've 
deleted by using the "A" command. 

Still another command that can be used after the ":" 
prompt is "I" (for INSERT). Type the letter "I" followed 
by the number of the line where you want your new line 
inserted. Suppose you wanted to insert another asterisk 
at Line 2 in the above program. You could simply hit 
your RETURN key to get a colon prompt, then type 

12 

Try that, and you'll see Merlin respond with the number 

2 

Now type an asterisk, followed by two carriage returns. 
Merlin will display its ":" prompt again, and you can then 
type "L" for list. Then Merlin will list your program, and 
you'll see that another line containing an asterisk has in- 
deed been inserted into your program, at Line 2. 
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Speaking of lines, you can now delete that extra aster- 
isk you've just added to your program. Hit a carriage re- 
turn to get a colon prompt and type "D2." Then you can 
type "L" for LIST, and you'll get a listing showing you 
that your program looks like this again: 

1 * 

2 * ADDNRS 

3 * 
4 

That looks okay, so now you can continue typing until 
you've entered the following program into your computer: 



1 * 






2 * ADDNRS 






3 * 






4 


ORG 


$8000 


5 ADDNRS 


CLD 




6 


CLC 




7 


LDA 


#2 


8 


ADC 


#2 


9 


STA 


$02A7 


10 


RTS 




11 







LISTING YOUR PROGRAM 

When you've reached Line 12 in your ADDNRS pro- 
gram, hit your RETURN key. Then you can type either 
L or LIST, and the complete program will be listed on 
your screen. Then you can examine the program line by 
line. 

Lines J through 3 of the ADDNRS program are com- 
ments. Line 2 explains what the program does, and lines 
1 and 3 set off the explanatory line by printing asterisks 
followed by white space, 

Line 4 is the origin line of the ADDNRS program. 
Every program written on Merlin 64 must start with an 
origin line. When a computer runs a machine language 
program, the first thing it does is go to a predetermined 
memory location and look at the value stored at that ad- 
dress. So when you write an assembly language program, 
the first thing you have to do is tell your computer where 
to start looking for the program in its memory. 

The origin directive looks like a simple line to write: 
but deciding where to start a program can be a difficult 
task. There are many blocks of memory in your computer 
that you can't use for assembly language programs be- 
cause they're reserved for other uses -for example, to 
hold your computer's operating system, disk operating 
system and BASIC interpreter. The best way to learn your 
way around your Commodore's memory banks is to con- 
sult a lot of memory maps and write a lot of assembly 
language programs. But in the early stages, it will usu- 
ally be safe to start your programs somewhere around 
memory location $8000 (or 32768 in decimal notation). 

line 5 of the ADDNRS program contains the label 
ADDNRS and the assembly language instruction CLD. 



Labels always occupy the first field (the column that 
follows the line-number column) in an assembly language 
programs. And labels are very important in Commodore 
64 assembly language programs, since labels, not line 
numbers, are used to access routines. 

The abbreviation CLD in Line 5 is a mnemonic, or 
assembly language instruction. Mnemonics always occu- 
py the second field (after the line number) in assembly 
language programs. The mnemonic CLD. which means 
"clear decimal mode," is often used prior to arithmetical 
operations in Commodore 64 assembly language. Inside 
your computer's 6510 microprocessor, a status flag called 
the decimal flag can be cleared with the instruction CLD. 
When the decimal flag is cleared, the Commodore 64's 
6510 chip carries out all arithmetical operations using 
binary numbers. If the decimal flag is not cleared prior 
to an arithmetical operation, the operation is carried out 
using binary-coded decimal (BCD) numbers, a subject 
that will be discussed in later columns. 

In Line 6 of the ADDNRS program, the mnemonic 
CLC is used to clear another 6510 flag, called the carry 
flag. This flag, as explained last month, is affected by 
so many kinds of operations that it's good programming 
practice to clear it before every addition operation— and 
to set it before every subtraction operation, so that it can 
be used as a borrow. 

Line 7 of the ADDNRS program- LDA #2 -is a very 
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straightforward instruction. When two numbers are to 
be added in an assembly language program, one must 
be loaded into a special 6510 register called the accum- 
ulator. Then the second must be added to the number 
that has just been placed in the accumulator. The sum 
of the two numbers is then left in the accumulator. 

In Line 7 of the ADDNRS program, the instruction 
LDA #2 is used to load the literal number 2 in the accum- 
ulator. The '*#" sign in front of the number 2 means that 
it's a literal number, not an address. If the instruction 
in Line 7 were "LDA 2," the accumulator would be loaded 
with the contents of Memory Address 0002, not the num- 
ber 2. 

Line 8-ADC #2— adds the literal number 2 to the 
number in the accumulator (in this case, another 2). As 
mentioned, there is no 6510 assembly language instruc- 
tion that means "add without carry." So the only way an 
addition operation can be performed without a carry is 
to clear the status register's carry flag and perform an 
"add with carry" operation. 

Line 9-STA $02 A7"— completes the addition opera- 
tion in the ADDNRS program. This statement stores the 
contents of the accumulator in Memory Address S02A7 
(usually a safe spot for storing data). Note that the sym- 
bol "#" is not used before the operand ($02A7), since 
in this case the operand is a memory address, not a lit- 
eral number. 

The mnemonic RTS, in Line 10 of the ADDNRS pro- 
gram, means "Return from Subroutine." The instruction 
RTS has two main uses in assembly language. When used 
at the end of a subroutine, it works like the RETURN 
instruction in BASIC; it ends the subroutine and returns 
to the main body of a program, beginning at the line fol- 
lowing the line in which the RTS instruction appears. 
But if used at the end of the main body of a program - 
as it is here — it ends the program. Usually, control of 
the computer then returns to whatever was in control be- 
fore the program began— usually the Commodore 64's 
built-in BASIC interpreter. 

ASSEMBLING AND SAVING 
YOUR PROGRAM 

To assemble the ADDNRS program using Merlin, all 
that is necessary is to type the command ASM follow- 
ing the ":" prompt. Merlin will then ask you if you want 
to update your source-code file -with the current date, 
for example. If you don't want to do that, you can type 
"N" (for "no") and Merlin will assemble your source-code 
program— very rapidly! 

After youu've assembled a source-code listing into ob- 
ject code, you can save both your source-code and ob- 
ject-code listings to disk. Here's how: 

First type "Q" (for QUIT) after the ":" prompt to get 
your assembler back into its "executive" (menu) mode. 



Merlins main menu will then reappear. You can then save 
your source code by selecting menu choice "S," and your 
object code by picking menu choice "O." 

After you type "S" or "O," Merlin will ask you what 
you'd like to name your program. You don't have to add 
a suffix to indicate whether it's a source-code listing or 
an object code program; Merlin will automatically add 
an "S" to the name of a source code listing, or "O" to 
the name of an object code listing. 

RUNNING AN ASSEMBLY 
LANGUAGE PROGRAM 

Once an assembly language program has been assem- 
bled into machine language, it can be executed without 
an assembler. When you have ADDNRS program assem- 
bled and safely stored on a disk, you can turn your com- 
puter off, turn it on again, and type the command 

LOAD "ADDNRS. 0", 8,1 

(As you may know, the number "1" at the end of a 
"LOAD" command informs your computer that the pro- 
gram being loaded is in machine language, and must 
therefore be loaded starting at the address that was des- 
ignated in the program's ORG line.) 

When the ADDNRS.O program has been loaded into 
memory, you can run it by typing the command 



SYS 32768 



That line will instruct your computer to run the pro- 
gram that now begins at Memory Address 32768 ($8000 
in hexadecimal notation). And, since the ADDNRS.O 
program has just been loaded into memory starting at 
that address, the program that will now be executed is 
the ADDNRS program. 

AND NOW FOR SOMETHING 
COMPLETELY DIFFERENT 

Unfortunately, the ADDNRS program doesn't appear 
to do much when it is loaded into memory and execu- 
ted. All it does is add a couple of numbers and place 
their sum into a certain memory location; and that isn't 
very exciting, since no keyboard inputs are requested, 
and nothing is displayed on your computer screen. 

So, in the listing on page 96, I've provided something 
to tide you over until next month's column. It's consid- 
erably more interesting than the ADDNRS program, and 
it will give you some practice in typing, assembling, sav- 
ing and running assembly language programs. Type the 
Flash program on page 96, assemble it, and save it on 
a disk. Then run it, and watch the action. We'll discuss 
how it works in next month's column. □ 

SEE PROGRAM LISTING ON PAGE 96 




Next month: Addressing the Commodore, Part /-the first of two columns that will explain the 13 addressing 
modes used in Commodore 64 assembly language programming, including several short illustrative programs. 
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PROGRAMMING CHAUJiNGIES 

By Dale Rupert 



E 



ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodores c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problems 
you are solving. Also show sample runs if possible, where 
appropriate. Programs on diskette are welcome, but they 
must be accompanied by listings. Also tell what makes 
your solutions unique or interesting, if they are. You must 
enclose a stamped, self-addressed envelope if you want 
any of your materials returned. 

Your original programming problems, suggestions and 
ideas are equally welcome! The best ones will become 
Commodores. 



Problem #19-1: Binary Palindrome 

Write a program to determine whether the binary 
equivalent of any input decimal number between and 
255 is a palindrome or not. Just one catch. Your pro- 
gram must not calculate the binary equivalent of the given 
number. (The eight-bit binary number must read the same 
forward or backward to be a palindrome.) 



Problem #19-2: Memory Locator 

This program does nothing more than tell where it is 
located in memory with an output such as this: 

Program Text : AAA - BBB 
Numeric Variables : CCC - DDD 
Arrays : EEE - FFF 
String Storage : GGG - HHH 

where for example AAA and BBB are the starting and 
ending memory addresses of the program's text. 

This is an easy problem if you know how to do it. Then 
again, aren't they all? 



Problem #19-3: Orthogonal Time 

At 3 o'clock and 9 o'clock the hands of the clock form 
a ninety degree angle. At what other times do the hands 
form a right angle? 



If you are tempted to say 12:15, consider the fact that 
the hour hand has moved by the time the minute hand 
gets to the three. Your program should list all the times 
to the nearest second at which the hands of a clock are 
ninety degrees apart. If you submit your program, also 
send the answers it gives. 



Problem #19-4: Screen Scramble 

Jesus Geliga-Torres (Aguadilla, PR) suggested the fol- 
lowing Commodore. Write a program which takes what- 
ever is on the screen and rewrites it in a top to bottom, 
right to left fashion. The top row of the screen becomes 
the right hand column. Whatever was in the upper left 
corner is now in the upper right corner. The contents 
of the lower left corner will now be in the upper left cor- 
ner. This should work for any text or text-mode graph- 
ics on the screen. !nuf ekil sdnuoS 



First we will discuss a solution to last month's Problem 
#18-1: Cycling Function from Jim Speers (Niles, MI), then 
we will look at other readers' solutions to Commodores 
from the March issue of Ahoy! 

Jim's solution to the problem he submitted is as follows: 

10 DEF FNC(D)=D - 2*5*(X=0) + 2*5*(X=100 
) 

When this statement is combined with the statements giv- 
en last month 



20 D=5 : X=0 

30 PRINT X : X=X+D 



D=FNC(D) : GOTO 30 



the output cycles back and forth from to 100 in steps 
of five. Line 10 is written so that you may replace the 
fives with any other step size you desire. Line 20 should 
be modified accordingly. Also you must be sure that the 
test values in line 10 (0 and 100) are reached exactly. If 
not, the output doesn't cycle. You might change the "=" 
to " < =" and " > =" if you are sure whether the end- 
points will be reached exactly. 

Here are two more general cycling functions which Jim 
suggested: 

10 FNU(V) = V - S*(V<MX) + (MX-MN)*(V=MX 
) 
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15 FND(W) = W + S*(W>MN) - (MX-MN)*(W=MN 
) 

MN, MX, and S are the minimum value, maximum val- 
ue, and step size. FNU repeatedly cycles up from the 
minimum to the maximum value and then drops back 
to the minimum value to start over. FND does just the 
opposite. Add line 5 and change lines 20 and 30 as follows 
to see how these functions work: 

5 MN=45 : MX=99 : S=3 

20 X=MN : Y=MX 

30 PRINT X,Y : X=FNU(X) : Y=FND(Y) : GO 
TO 30 

Again, the endpoints must be reached exactly with the 
chosen step size. 

Problem #15-1: Fancy Functions brought many re- 
sponses. Readers used two significantly different meth- 
ods to check for the "evenness" of a number as typified 
by these function definitions: 

FNA(X) = -{1/2 = INT(X/2)) 

FNA(X) = 1 - (X AND 1) 

The first uses a logical expression having a value —1 when 
true and when false. The minus sign in front produces 
the desired result that FNA(X) equals 1 when X is even 
and when X is odd. The second uses a Boolean expres- 
sion which depends on the fact that the least significant 
bit in the binary representation of an even number is 
and of an odd number is 1. (X AND 1) equals I for odd 
values of X and for even values of X. Refer to the Com- 
modore 64 Programmer's Reference Guide for a discus- 
sion of the AND operator. 
A solution to the equilateral triangle area function is 

FNB(X) = X*X*SQR(3)M 

or some variation on this theme. 

There was not much need for originality for the random 
number generator function. Most solutions looked es- 
sentially like this: 

FNC(X) = INT(X*RND(1)+1) 

where FNC has a random integer value from I to X inclu- 
sive. 

The fourth function as defined by most readers was 
of the form 

FND(X) s INT(N*10 A X + .5)/10 A X 

This rounds the number N properly to X decimal places, 
but only if X is positive. A more general solution han- 
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dies negative numbers as well: 

FND(X) = SGN(X)*INT(ABS(N)*10 A X+.5)/10 A X 

Glenn D. Elliot (Rutherford, NJ) used string functions 
to arrive at his solution: 

FND(X) = VAL(LEFT$(STR$(N+5/10 A (X+l)),LE 
N(STR$(INT(N)))+X+1)) 

Unfortunately, this doesn't work properly for values of 
N less than 1. Can someone fix it up? How about a func- 
tion that returns a value with X significant figures? For 
example, if N— 1.254 and X=2, the result is 1.3, or if 
N = 1254 and X=2, the result is 1300 or 1.3E3. Anyone 
up for the challenge? The string approach might be the 
way to go. 

Several readers overlooked the requirement for Prob- 
lem §15-2: Prime Factors that the solution contain only 
one statement per line. It is surprising how the inability 
to put more than one statement per line can complicate 
a program, especially with IF-THEN statements. The so- 
lution from John Prager (Bay City, MI) printed below 
is representative of most of the other proper solutions. 

10 REM SOLUTION TO PROBLEM #15-2 : 

20 REM PRIME FACTORS 

30 REM BY JOHN PRAGER 

100 INPUT N 

110 FOR F=2 TO SQR(N)+.9 

120 IF INT(N/F)=N/F THEN 150 

130 NEXT F 

140 F=N 

150 IF A THEN PRINT"*"; 

160 PRINT F; 

170 A=-l 

180 N=N/F 

190 IF N>1 THEN 110 

John used the fact that you don't have to check for any 
factors larger than the square root of the given number. 
Any non-prime non-square number can be factored into 
factors, one of which is larger and the other of which 
is smaller than the square root of the number. Once you've 
found the smaller factor, division gives the larger. One 
way to speed this program up is to check only for odd 
factors once all factors of two have been divided up. The 
solution from Dana Rousseau (Memphis, TN) below 
takes that approach. 

1 REM SOLUTION TO PROBLEM #15-2 : 

2 REM PRIME FACTORS 

3 REM BY DANA ROUSSEAU 

4 REM (( SIMON'S BASIC )) 
10 INPUT N 

20 K=2 

30 L=N-K*INT(N/K) 

40 IF L=0 THEN PRINT K;"*"; 
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50 IF L=0 THEN N=N/K 
60 IF K*L>2 THEN K=K+2: 
70 IF K*K<=N THEN 30 
80 PRINT N 



ELSE :K=K+L 



Dana used Simons' BASIC, which allows the IF-THEN- 
ELSE statement. You can delete the ELSE part of line 
60 and add line 65 IF K*L< =2 THEN K=K+L if you 
don't use Simons' BASIC, According to Dana, line 60 (i) 
does not increment K if K divides N (so it can be tried 
again), (ii) increments by 1 if K=2 and N is odd, and 
(iii) increments by 2 if K>2 and K does not divide N. 

Jim Speers (Niles, MI) said that his solution found the 
prime number 999,999.937 (the largest prime number 
with fewer than ten digits) in just under 38 minutes. How 
do your times compare? 

Congratulations to Brad Cameron (Metcalfe, ONT), 
Daniel Knight (Grand Rapids, MI). David Alan Wright 
(New Britain, CT), Fred Atiyeh (Livonia, MI) and James 
Borden (Carlisle. PA) for their solutions to this problem. 

There were two types of solutions to Problem #15-3: 
Separated Sentence, those that are printable on a printer 
and those that aren't. Those that aren't printable use the 
: Pj and [DOW Nj statements to mow the cursor be- 
tween characters. A printer is a sequential access device 
whereas the screen (or a plotter) is random access. A 
one-liner from Tom Nielsen (Bismarck, ND) is listed be- 
low. It is for a random access output. 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 

3 REM BY TOM NIELSEN 

4 REM 

10 INPUTB$ : F0RI=1T0LEN( B$ ) STEP2 : PRINTMID 
$(B$,I > l) m, MID$(B$,I+l,l)"";:NEXT:PRINT" 



Of the solutions which are hard-copy printable, some 
stepped through the input string twice, printing every 
other letter on one line, then dropping to the next line 
to print the rest. An example of this method is the pro- 
gram listed here from Marcus F Cooper (Mililani. HI). 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 

3 REM BY MARCUS F. COOPER, JR. 

4 REM 

1 INPUTS$ : F0RU=1T0LEN( S$ ) STEP2 : PRINTMID 

$(S$,U,1)+" ";:NEXT 

20 PRINT :F0RL=2T0LEN(S$)STEP2: PRINT" "+M 

ID$(S$,L,1);:NEXT 

Other readers created separate strings and printed them 
individually, as shown by this solution from Larry E. 
Cox (Tecumseh. MI). 

1 REM SOLUTION TO PROBLEM #15-3 : 

2 REM SEPARATED SENTENCE 
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3 REM BY LARRY E. COX 

4 REM 

10 INPUT"SENTENCE";A$ 

20 F0RX=1T0LEN(A$)STEP2:Y=X+1 

30 B$=B$+MID$ ( A$ , X , 1 )+CHR$ ( 32 ) : C$=C$+CHR 

$(32)+MID$(A$,Y,l):NEXT 

40 PRINTB$:PRINTC$ 

Daniel Knight (Grand Rapids. MI) suggested that you 
might encode a message with dummy letters this way, 
then write a program to decode it. The third type of so- 
lution above is probably the most useful if you want to 
utilize this concept in cryptography. 

Problem #15-4: String Stretcher was meant to revive 
a classic geometry problem. Even after seeing a proof 
of the solution, it is still a bit difficult to believe the re- 
sults. If the string is one yard longer than the circumfer- 
ence of a planet (any planet), the string could be placed 
around the planet at a uniform height of 1/(2*PI) yards 
above its surface. 

To see this, let Ct be the circumference of the planet. 
The length of the string is then CI plus one yard. The 
radius of the planet is C1/(2*PI) and the radius of the 
string is (C1+1)/(2*PI). Some algebraic manipulations 
show that the difference in the two radii is simply 1/(2*PI). 
independent of CI. Therefore the string will be approxi- 
mately six inches (0.16 yards) above the surface regard- 
less of the size of the planet. 

A few readers resorted to some craftiness by putting 
delay loops into their solutions so it looked like the com- 
puter really had to "think" about the solution before print- 
ing it. Of the readers who commented, all said they en- 
joyed this bit of trickery. Your comments as to whether 
or not you like a particular type of problem are always 
welcome. 

Solutions for March Commodores and various other 
problems and letters were received from the following 
people not mentioned above: 



Scott Krtigcr (Rockford. !L| 
Tony Rupcrto (Kitimat. BC) 
Stan Bedding Held (Dover, DE) 
Rick Acosta (Somcrville, NJ) 
Don Allen (Nccedah. WI) 
Jason Simpson (Victoria. BC) 
Russ Beinder (Victoria. BC) 
Keith Rasmussen (Blaine. MN) 
Paul Hawthorne (Wilburton. OK) 
Peter Lam (Langcnburg. SK) 
R. Dorn (Saratoga. NY) 
Tom McNeill (Baltimore. MD) 
Frank Gourley (Kencsaw. NE) 
Brad Cameron (Metcalfe. ONT) 
Kenneth Karow (Chicago. 1L) 
Steve Fcld (New York. NY) 
Veronica Robin (Niles. OH) 



James N. Martin (Keesler AFB. MS) 
Richard Cannon (Cambridge, ONT) 
William Ingram (Cambridge. ONT) 
Trevor Green (Campsie NSW. Australia) 
Glen Oldford (St. John"s. NFLD) 
Eric Bems (Grande Prairie. ALB) 
Mike Livermorc (Kansas City. KS) 
James Dunavant (Gainesville. FL) 
Vadim Israiicvicb (N. Hollywood, CA) 
Margaret Wyldc (New Bloomficld, MO) 
Wither Robinson (Bonner Springs, KS) 
John Northovcr (San Diego. CA) 
Cathy Levandofsky (Bainbridge, OH) 
Carl Lancaster (Oxon Hill. MD) 
L.M. Davis (Bainbridge. OH) 
Stanley Davis (Decatur. GA) 
Paul Lalli (McAlestcr. OK) 



As usual, solutions received by the middle of the month 
of the magazine's cover date are most likely to be listed 
and discussed, but you may send your solutions any time. 
I will respond to your questions or comments only if you 
enclose a self-addressed stamped envelope. You have 
some serious work ahead of you with this month's chal- 
lenges, so you'd better get busy! □ 






PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy. 1 Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 



O" n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
dore computer. But before doing so. read this 
___ entire page carefully. 

To insure clear reproductions. Ahoyfs program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets | ]. For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart E ■ The code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that key while holding 
down the SHIFT key. COMMODORE and SHIFT char- 
acters are represented in our listings by a lower-case "s" 
or "c" followed by the symbol of the key you must hit. 
COMMODORE J, for example, is represented by [c J], 



and SHIFT J by [s J], 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, [5 "[s EP]"'] would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spaces as [22 ""]. 

Sometimes you'll find a program line that's too long 
for the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
a maximum of 88 characters, or 4 screen lines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each program line, in the 
whited-out area, should nor be typed in. See the instruc- 
tions preceding each program.) 

Also on the following page you will find Flankspeed, 
our ML entry program, and instructions on its use. □ 

Call Ahoy! at 212-239-0855 with any problems. 
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I M PflRTflMTI Letters on wni,e background are Bug Repellent line codes. Do not enter them! This and the preceding explain these 
I IV I lUn IrtlM I ■ codes and provide other essential information on entering Ahoy! programs Read these pages before entering programs 



BUG REPELLENT 

This program will let you debug any Ahoy! program. Follow in- 
structions for V!C 20 (cassette or disk) or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

For cassette; tvpe in and save the Bug Repellent program, then 
type RUN 63OO0"[RETURN]SYS 828IRETURN]. II' you typed the 
program properly, it will generate a set of two-letter line codes that 
wilt match those listed to the right of the respective program lines. 

Once you've got a working litti; Repellent . type in the program 
you wish to check. Save it and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC, the VIC Bug Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the cassette for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 63000 on. (Be sure the program you type doesn't include lines 
above 63000!) 

For disk: enter Bug Repellent, save it. and type RUN:NEW 
[RETURN], Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list lo the printer type OPEN 4.4.CMD 4:SYS 
828JRETURN], When the cursor comes hack, type 
PRINT04:CLOSE 4[RETURN'l. 

•63000 FORX=828T01023 : READY :P0KEX,Y: NEXT: END AC 
•63001 DATA169, 0,133,63, 133, 64, 165, 43, 133,251 JL 
•63002 DATA 165, 44, 133, 252, 160, 0,132, 254, 32 ,228 DF 
•63003 DAT A3, 234, 177, 25 1,208 ,3, 76, 208, 3, 230 0E 
•63004 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 
•63005 DATA30, 203, 160, 0,177, 251, 170, 230, 251, 20 

8 KO 

•63006 DATA2, 230, 252, 177, 251, 32, 205, 221, 169, 58 JJ 
•63007 DATA32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 
•63008 DATA228, 3, 234, 165, 253, 160, 0,170, 177, 251 LG 
•63009 DATA201, 32, 240, 6, 138, 11 3, 251, 69, 254, 170 BP 
•63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 

,41 DD 

•63011 DATA240, 74, 74, 74, 74, 24, 105,65,32,210 EK 
•63012 DATA255, 165, 253, 41, 15, 24, 105, 65, 32, 210 F0 
■63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 
•63014 DATA1, 208, 249, 230, 63, 208,-2, 230, 64, 230 CB 
•63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 KH 
•63016 DATA160,3,32,30,203, 166,63, 165,64,32 DP 
•63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 

1 EL 

•63018 DATA208,2,230,252,96,0,76,73,78,69 01 
•63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 FG 
•63020 DATA32, 0,0, 0,0,0 LE 

G64 VERSION 
By Michael Kleinert and David Barron 

Type in. SAVE, and RUN the Bug Repellent. Type NEW. then 
type in ot* LOAD the Alrny! program you wish lo check. When that's 
done. SAVE your program (don't RUN it!) and type SYS 49152 
1 RETURN | . ' 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference. 
m\ error exists in that line. Jot down the number of lines where 
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contradictions occur. LIST each line, spot the errors, and correct 
them. 

• 5000 FORX=49152T049488 : READY : P0KEX, Y : NEXT : END GJ 
•5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 
•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 
•5003 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 
•5004 DATA230,252,76,43,192,76,73,78,69,32 KN 
•5005 DATA35, 32, 0,169, 35, 160, 192, 32, 30, 171 CA 
•5006 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 
•5007 DATA252, 177, 251,32, 205, 189,169,58,32,210 JE 
•5008 DATA255, 169, 0,133, 253, 230, 254, 32, 37, 193 CL 
■5009 DATA234, 165, 253, 160,0, 76, 13, 193, 133, 253 NB 
•5010 DATA177, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 
•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 
•5012 DATA41, 15, 24, 105, 65, 32, 210, 255, 169, 13 GH 
■5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 
•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 
•5015 DATA160, 192, 32, 30, 171, 166, 63, 165, 64, 76 
■5016 DATA231,192,96,76,73,78,69,83,58,32 
■5017 DATA0, 169,247, 160, 192,32,30, 171,169,3 
•5018 DATA1 33, 254, 32, 228, 255, 201, 83 ,240, 6, 201 
•5019 DATA80, 208, 245, 230, 254, 32, 210, 255, 169, 4 
•5020 DATA166, 254, 160, 255, 32, 186, 255, 169,0, 133 CL 
•5021 DATA63, 133, 64, 133, 2, 32, 189, 255, 32, 192 GC 
•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193, 96 NN 
•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 NH 
•5024 DATA96, 32, 205, 189, 169, 13, 32, 210, 255, 32 IM 
•5025 DATA204, 255, 169, 4, 76, 195, 255, 147, 83, 67 
•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 
•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 
•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 
•5029 DATA113, 251, 69, 254, 170, 138, 76, 88, 192,0 

• 5030 DATA0 ,0,0, 230 , 251 , 208 , 2 , 230 , 252 , 96 
•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2, 73 
•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251, 201 
•5033 DATA32, 208, 212, 198, 254, 76, 29, 193, 0,169 
•5034 DATA13, 76, 210, 255, 0,0,0 



AN 
NG 
BF 
EP 
PJ 
FK 
FL 



KG 
DC 

ML 
GN 
JK 
NA 
DM 
JA 
FM 
PA 



FOR THE C-64 



By Gordon F. Wheat 

FUmkspei'il will allow you to enter machine language Ahoy! pro- 
grams without an) mistakes. Once you have nped the program in. 
save it for future use. While entering an ML program with 
Flunkspeed there is no need to enter spaces or hit the carriage return. 
This is all done automatically. If you make an error in a line a bell 
will ring and you will be asked to enter it again. To LOAD in a 
program Saved with Fltuik.speeil use. LOAD "name". 1. 1 for tape, 
or LOAD "namc~,8, 1 for disk. The function keys ma) be used alter 
the starling and ending addresses have been entered. 
f I — SAVEs what you have entered so far. 
13 — LOADs in a program worked on previously. 
t'5 — To continue on a line you stopped on after LOADing in the 
previously saved work. 

17 -Scans through the program to locale a particular line, or to find 
out where you stopped the last time you entered the program. 17 
temporarily freezes the output as well. 

•5 P0KE53280,12:P0KE53281,11 - 

•6 PRINT" [ CLEAR ][c 8][RVS0N][15" "]FLANKSPEED[ 

15" "]"; 
•10 PRINT"[RVS0N][5" " ]MISTAKEPR00F ML ENTRY P 

R0GRAM[6" "]" MC 

•15 PRINT"[RVS0N][9" "]CREATED BY G. F. WHEAT[ 

9" "]" DM 

•20 PRINT"[RVS0N][3" "]C0PR. 1984, ION INTERNA 



LL 
ED 



TIONAL INC. [3" "]" DH 

•30 FORA=54272T054296:POKEA,0:NEXT IM 

• 40 POKE54272 , 4 : P0KE54273 , 48 : POK E54277 , : P0KE5 

4278,249:P0KE54296,15 NH 

•70 FORA=680T0699:READB:P0KEA,B:NEXT KO 
•75 DATA169, 251, 166, 253, 164, 254, 32, 216, 255, 96 HJ 
•76 DATA169, 0,166, 251, 164, 252, 32, 213, 255, 96 JB 
■80 B$="STARTING ADDRESS IN HEX":G0SUB2010: AD= 

B:SR=B HC 

•85 GOSUB252O:IFB=0THEN8O FO 

•86 POfCE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
•90 B$="ENDING ADDRESS IN HEX":G0SUB2010:EN=B IF 
•95 G0SUB2510:IFB=0THEN80 FP 

■96 POKE254,T(2)+T(l)*16:B=T(4)+l+T(3)*16 MN 
•97 IFB>255THENB=B-255:P0KE254,PEEK(254)+1 GE 
•98 POKE253.B: PRINT HN 

■ 100 REM GET HEX. LINE IL 

•110 G0SUB3010: PRINT": [c P] [LEFT]"; : FOR A=0T08 FG 
•120 F0RB=0T01:G0T0210 MD 

•125 NEXTB ME 

•130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 LH 
•135 PRINT" [c P][LEFT.]"; IK 

•140 NEXTA:T=AD-(INT(AD/256)*256):PRINT" " PD 
•150 F0RA=0T07:T=T+A%(A):IFT>255THENT=T-255 LK 
•160 NEXT IA 

■170 IFA%(8)OTTHENG0SUB1010:G0T0110 FK 

•180 FORA=0TO7:POKEAD+A,A%(A):NEXT:AD=AD+8:GOT 

0110 MN 

•200 REM GET HEX INPUT AB 

•210 GETA$:IFA$=""THEN210 HO 

•211 IFA$=CHR$(20)THEN27O GC 

•212 IFA$=CHR$(133)THEN4000 MD 

•213 IFA$=CHRS(134)THEN4100 KF 

•214 IFA$=CHR$(135)THENPRINT" ":G0T04500 GE 
•215 IFA$=CHR$(136)THENPRINT" ":GOTO4700 BJ 
•220 IFA$>"@"ANDA$<"G"THENT(B)=ASC(A$)-55:G0T0 

250 GM 

•230 IFA$>"/"ANDA$<":"THENT(B)=ASC(A$)-48:GOTO 

250 LE 

•240 G0SUB1100:G0T0210 LL 

•250 PRINTA$"[c P][LEFT]"; OA 

•260 GOT0125 CG 

•270 IFA>0THEN280 OP 

•272 A=-1:IFB=1THEN290 OB 

■274 G0T0140 CJ 

•280 IFB=0THENPRINTCHR$(20) ;CHR$(20) ; : A=A-1 HG 
•285 A=A-1 BE 

•290 PRINTCHR$(20);:G0T0140 KH 

•300 REM LAST LINE AD 

•310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
•320 F0RB=0T0A-l:T=T+A%(B):IFT>255THENT=T-255 PL 
•330 NEXT I A 

•340 IFA%(A)OTTHENG0SUB1010:G0T0110 KF 

•350 FORB=0T0A-l:POKEAD+B,A%(B):NEXT HN 
•360 PRINT :PRINT"YOU ARE FINISHED !":GOT04000 ON 
•1000 REM BELL AND ERROR MESSAGES FL 

•1010 PRINT : PRINTLINE ENTERED INCORRECTLY": PR 

INT: GOTO 1100 DH 

•1020 PRINT :PRINT"INPUT A 4 DIGIT HEX VALUE!": 

G0TO110O J A 

•1030 PRINT :PRINT"ENDING IS LESS THAN STARTING 

!":B=0:G0T01100 HD 

•1040 PRINT: PRINT" ADDRESS NOT WITHIN SPECIFIED 

RANGE! ":B=0:G0T01 100 AG 

•1050 PRINT :PRINT"N0T ZERO PAGE OR R0M!":B=0:G 

0T01100 KN 



1060 PRINT"?ERROR IN SAVE" :G0T01 100 EI 
1070 PRINT"?ERR0R IN LOAD": GOTO 1100 GL 

1080 PRINT: PRINT :PRINT"END OF ML AREA": PRINT PG 
1100 POKE54276,17:POKE54276,16:RETURN BH 
1200 0PEN15 T 8,15:INPUT#15,A,A$:CL0S£15:PRINTA 
$ : RETURN IM 

2000 REM GET FOUR DIGIT HEX PC 

2010 PRINT :PRINTB$;:INPUTT$ GM 

2020 IFLEN(T$)O4THENG0SUB1020:G0T02010 II 
2040 FORA=1T04:A$=MID$(TS,A,1):GOSUB2060:IFT( 
A)=16THENGOSUB1020:GOTO2O10 AD 

2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 
T{4):RETURN GF 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 

2070 IFA$>"/"ANDA$<":"THENT(A)=ASC(A$)-48:RET 
URN KP 

2080 T( A )=16: RETURN NP 

2500 REM ADRESS CHECK LI 

2510 IFAD>ENTHEN1030 MI 

2515 IFB<SR0RB>ENTHEN1040 MG 

2520 IFB<2560R(B>40960ANDB<49152)0RB>53247THE 
N1050 MI 

2530 RETURN IM 

3000 REM ADDRESS TO HEX EB 

3010 AC=AD:A=4096:GOSUB3070 HG 

3020 A=256:G0SUB3070 CE 

3030 A=16:G0SUB3070 PN 

3040 A=1;G0SUB3070 MJ 

3060 RETURN IM 

3070 T=INT( AC/A) :TFT>9THENA$=CHR$(T+55) :G0T03 
090 CJ 

3080 A$=CHR$(T+48) JP 

3090 PRINTA$;:AC=AC-A*T: RETURN AC 

4000 A$="**SAVE**":G0SUB4200 AI 

4050 OPEN1,T,1,A$:SYS680:CLOSE1 LH 

4060 IFST=OTHENEND EO 

4070 GOSUB1060:IFT=8THENGOSUB1200 FJ 

4080 G0T04000 FF, 

4100 A$="**LOAD**":GOSUB4200 AB 

4150 OPEN1,T,0,A$:SYS690:CLOSE1 MF 

4160 IFST=64THEN110 JH 

4170 GOSUB107O:IFT=8THENGOSUB12O0 CM 

4180 G0T04100 FO 

4200 PRINT" ":PRINTTAB(14)A$ FG 

4210 PRINT :A$="":INPUT"FILENAME";A$ OM 
4215 IFA$=""THEN4210 GF 

"4220 PRINT :PRINT"T APE OR DISK?": PRINT DF 
4230 GETB$ : T=l : IFB$="D"THENT=8 : A$="@0: "+A$ : RE 
TURN IG 

4240 IFB$O"T"THEN4230 FN 

4250 RETURN IM 

4500 B$="C0NTINUE FROM ADDRESS" :GOSUB2010:AD= 
B DK 

4510 GOSUB2515:IFB=0THEN4500 MA 

4520 PRINT :G0T01 10 . 01 

4700 B$="BEGIN SCAN AT ADDRESS" :G0SUB2010:AD= 
B FH 

4705 GOSUB2515:IFB=0THEN4700 NK 

4706 PRINT :G0T04740 DI 
4710 F0RB=0T07 ; AC=PEEK( AD+B) : G0SUB3030: IFAD+B 
=ENTHENAD=SR : GOSUB1080 : G0T01 10 BK 
4715 PRINT" ";:NEXTB EC 
4720 PRINT :AD=AD+8 GN 
4730 GETB$:IFB$=CHR$(136)THEN110 MN 
4740 GOSUB3010: PRINT": ";:GOT04710 JD 
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PRINT SHOP TO BIT MAP CONVERTOR 

FROM PAGE 50 

1 REM PRINT SHOP TO BIT MAP CONVERTER LD 

2 REM FOR PRINT SHOP GRAPHIC EDITOR BO 

3 REM ************************* KN 

4 REM * (C) MARCH 3, 1984 * CD 

5 REM * BY MORTON A. KEVELSON * DB 

6 REM * P. 0. BOX 260 * IH 

7 REM * HOMECREST STATION * JG 

8 REM * BROOKLYN, NY 11229 * BO 

9 REM ************************* jqj 

10 REM USE WITH DOODLE! FILES BG 

19 ON FL GOT0200.400 PN 

20 P0KE51,0:P0KE52,57:P0KE55,0:P0KE56,57 OK 
30 PRINT"[RVS0N]1[RVS0FF] BIT MAP TO PRI 
NT SHOP" PI 
40 PRINT" [RVS0N]2[RVS0FF] PRINT SHOP TO 
BIT MAP" MB 
50 PRINT"PRESS [RVS0N]1[RVS0FF] OR [RVSO 
N]2[RVSOFF]" 01 
60 GET FL$:FL=VAL(FL$) KH 
70 IF FL<1 OR FL>2 THEN G0T060 MC 
80 INPUT"SOURCE FILE NAME";SF$ OK 
90 INPUT"DESTINATION FILE NAME";DF$ FE 
100 SA=24576:REM SA=DO0DL! START ADDRESS BG 
110 TF=22528:REM PRINT SHOP START ADDRES 

S JG 

120 LOAD SF$,8,1 BG 

200 FOR RW=0T07 OG 

210 FOR PS=0T07 OA 

220 FOR CO=0TO10 BB 

230 BY=SA+C0*8+PS+RW*320 KB 

240 POKE TF, PEEK (BY) PP 

250 TF=TF+1 LC 

260 NEXTCO:NEXTPS:NEXTRW NP 

270 FORI=2310OTO231O7:POKEI,0:NEXTI LM 

280 GOSUB800 CI 
290 P0KE43 , : P0KE44 , 88 : P0KE45 , 67 : P0KE46 , 

90:SAVE"PSTEMP",8 A J 
300 P0KE43,1:P0KE44,8:P0KE45,PEEK(36864) 

:P0KE46,PEEK(36865) AO 
310 0PEN1 ,8,15: PRINT#1 , "RO : "+DF$+"=PSTEM 

P":CL0SE1:END CJ 

400 FOR CM=23552 TO 24551 JM 

410 POKE CM, 1 -.NEXT CM NG 

420 FOR MM=SA TO SA+7999 EP 

430 POKE MM, 0: NEXT MM OP 

440 FOR RW=0T07 OG 

450 FOR PS=0T07 OA 

460 FOR C0=0T010 BB 

470 BY=SA+CO*8+PS+RW*320 KB 

480 POKEBY,PEEK(TF) CF 

490 TF=TF+1 LC 

500 NEXTCO:NEXTPS:NEXTRW NP 

510 F0RRW=0T07 OG 

88 AHOY! 



520 F0RPS=0TO7 

530 BY=SA+88+PS+320*RW 

540 P0KEBY,128 

550 NEXTPS:NEXTRW 

560 F0RC0=0T010 

570 BY=SA+C0*8+1923 

580 P0KEBY.255 

590 NEXTCO 

600 G0SUB800 



OA 
MC 
AO 
JB 
BB 
JL 
AD 
BD 
CI 



610 POKE43,0:POKE44,92:POKE45,0:POKE46,1 
28 HO 

620 SAVE"DDTEMP",8 AF 

630 P0KE43,1:P0KE44,8:P0KE45,PEEK(36864) 
:P0KE46,PEEK(36865) AO 

640 0PEN1 , 8,15: PRINT#1 , "RO : "+DF$+"=DDTEM 
P":CL0SE1:END MK 

800 P0KE36864,PEEK(45) EH 

810 P0KE36865,PEEK(46) IF 

820 RETURN IM 



SCREEN MAGIC TO DOODLE! CONVERTOR 

FROM PAGE 50 

•10 1=49152 AJ 

•20 READ A: IF A=256 THEN 40 FN 

•30 POKE I, A: 1=1+1: GOTO 20 OF 

•40 PRINT" [CLEAR] [DOWN] [DOWN] [5" "]SCREEN 

MAGIC/DOODLE CONVERTER" BF 

•50 PRINT" [DOWN] [8" "](C) 1984 BY M. BEUT 

JER" KM 

•60 PRINT"[3"[D0WN]"] SELECT :"CHR$(13); 

CHR$(13);"[11" "]1 - DOODLE TO SCREEN MA 

GIC" HO 

•70 PRINT" [11" "]2 - SCREEN MAGIC TO DOOD 

LE" LO 

•80 INPUT"[D0WN][D0WN][15" "]";A EE 
•90 IFA<10RA>2THEN40 IK 

•100 IFA=1THEN150 OL 

•110 G0SUB500:SYS49152 BK 

•120 INPUT" ANOTHER CONVERSION" ;A$ EO 
•130 IFLEFT$(A$,l)O"N"THEN40 II 

•140 END IC 

•150 G0SUB500:SYS49194 CE 

•160 G0T0120 CD 

•500 PRIN'f'ENTER THE NAME OF THE EXISTING 

FILE." NB 

•505 PRINT"DO NOT INCLUDE THE 'DD' PREFIX 

ON" GK 

•506 PRINT"DOODLE FILES!" DL 

•510 INPUTA$:B=LEN(A$) JO 

•520 IFA=1ANDB>8THEN510 LL 

•530 IFB>16THEN510 DO 

•540 F0RX=1T0B KC 

•550 P0KE49292+X,ASC(MID$(A$,X,1)) HJ 
•560 NEXT IA 

•570 P0KE49289.B CA 



•580 B=B+2 BA 

•590 IFB<17THENPOKE49290,B: RETURN KF 

•600 P0KE49290,16 CK 

•610 RETURN IM 

•49152 DATA 169,92,133,252,160,0,132,251 GL 

•49160 DATA 162,4,169,1,145,251,200,208 CO 

•49168 DATA 251,230,252,202,208,246,174,1 

37 IB 

•49176 DATA 192,160,141,169,96,32,62,192 ME 

•49184 DATA 169,92,160,139,174,138,192,76 NN 

•49192 DATA 98,192,174,138,192,160,139,16 

9 CL 

•49200 DATA 92,32,62,192,169,96,174,137 CI 

•49208 DATA 192,160,141,76,98,192,142,81 EC 

•49216 DATA 192,140,83,192,141,94,192, 169 CI 

•49224 DATA 1,162,8,160,0,32,186,255 EI 

•49232 DATA 169,0,162,0,160,192,32,189 MN 

•49240 DATA 255,169,0,162,0,160,0,76 EE 

•49248 DATA 213,255,142,116,192,140,118,1 

92 JG 

•49256 DATA 133,252,169,1,162,8,160,0 JM 

•49264 DATA 32,186,255,169,0,162,0,160 EM 

•49272 DATA 192,32,189,255,169,0,133,251 BJ 

•49280 DATA 169,251,162,255,160,127,76,21 

6 EG 

•49288 DATA 255,0,0,68,68,256 MC 

SPEEDING PIXELS 

FROM PAGE 37 LISTING 1 



1 REM 



REM 

REM 
REM 
REM 



RUPERT REPORT #19 
BASIC LISTING 1 
BIT MAP GRAPHICS 



REM DELETE LINES 65 AND 265 IF 

REM OBJECT FILES CLSCRN.O AND 

8 REM PL0T.$C.0 ARE ON THE DISK 

9 REM 

10 ON LL GOTO 75,90 

15 DEF FNSB(N)=PEEK(MM) OR 2[UPARR0W]N 
20 DEF FNRB(N)=PEEK(MM) AND (255-2[UPARR 
0W]N) 

30 VV=53248 :REM VIC-II REGISTER 
35 :REM >» PUT BIT MAP AT 8192 <« 

(SET BIT 3 OF VIC REGISTER 24) 
40 MM=VV+24 : POKE MM,FNSB(3) 
45 :REM >» SELECT BIT MAP MODE <« 

(SET BIT 5 OF VIC REGISTER 17) 
50 MM=VV+17 : POKE MM,FNSB(5) 
55 BASE=8192 :REM START BIT MAP MEMORY 
60 :REM >» CLEAR BIT MAP <« 
65 FOR M-8000 TO 16191: POKE M,0 :NEXT : 
GOTO 90 

70 LL=1 : L0AD"CLSCRN.0",8,1 
75 SYS 828 

80 LL=2 : L0AD"PL0T.$C0",8,1 
85 :REM >» SELECT COLORS CI AND CO <« 



JD 
PD 
DE 
KG 
JD 
JA 
MP 
LK 
JD 
MJ 
LG 

FP 
FL 

JA 

00 

DH 

JM 
KD 
HG 

EP 
HC 
EF 
HN 
LC 



90 Cl=l : C0=0 : CC=16*C1 + CO OM 

95 :REM »FILL SCREEN MEMORY WITH COLOR AI 
100 FOR MM=1024 TO 2023 :POKE MM,CC:NEXT OM 

194 : DI 

195 ::REM:: MAIN PROGRAM :: AE 

196 : DI 
200 PI=3. 14159265 : K=PI/40 GE 
205 POKE 198,0 :REM CLEAR KBD BUFFER KG 
210 Z0=49155:Z1=49156:Z2=49157 EE 
220 FOR Q=5 TO 95 STEP 8 LA 
230 FOR X=0 TO 319 STEP 6-L0G(Q) BB 
240 XMSB=0 : XLSB=INT(X) ME 
250 IF XLSB>255THENXLSB=XLSB-256:XMSB=1 MB 
260 Y=Q*SIN(X*K)+95 FL 
265 GOSUB 400 : GOTO 280 IC 
270 POKE Z0,XLSB:P0KE Z1,XMSB:P0KE Z2.Y: 
SYS 49152 CD 
280 IF PEEK( 198)00 THEN 300 CO 
290 NEXT: NEXT EF 

295 IF PEEK(198)=0 THEN 295 :REM CHECK K 
BD BUFFER DN 

296 : DI 

297 ::REM:: BACK TO NORMAL :: EL 

298 : DI 
REM >» RESET BIT MAP MODE <« HJ 

POKE MM,FNRB(5) JN 

:REM >» RESTORE SCREEN MEMORY BASE GC 

330 MM=VV+24 : POKE MM,FNRB(3) MP 

340 PRINT CHR$(147) :REM CLEAR SCREEN EG 

390 END IC 

394 : DI 

395 :REM >» TURN ON PIXEL AT (X,Y) OB 

396 :REM >» THIS SUBROUTINE IS REPLACED 
BY THE ML ROUTINE CALLED AT LINE 270 BH 

397 : DI 
400 BIT=7-(X AND 7) PJ 
410 MM=BASE + 320*INT(Y/8) + 8*INT(X/8) 

+(Y AND 7) AP 

420 POKE MM.FNSB(BIT) MO 

430 RETURN IM 



Listings 2 and 3 are Flankspeed versions of the CLR5CR.O 
and PLOT.$C.S programs listed in assembled format in the 
Speeding Pixels article (on pages 39 and 43 respectively). 

LISTING 2 

First byte: 033C Last byte: 0368 Sys to Start: 828 

033C: 4C 44 03 00 20 IF 40 00 4F 

0344: AD 3F 03 85 FB AD 40 03 A6 

034C: 85 FC AE 41 03 AO 00 AD 10 

0354: 43 03 88 91 FB DO FB E6 64 

035C: FC CA 30 07 DO F4 AC 42 10 



300 

310 MM=VV+17 

320 



0364: 03 DO EF 60 00 88 



First byte: COOO Last byte: COAF 
COOO: 4C 08 CO 3F 01 



LISTING 3 

Sys to Start: 49152 
00 00 20 75 
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100 PRINT M [H0ME][16" "][H0ME]PHRASE "PH DD 
110 IF PEEK (653)00 THEN GOSUB 60: GOTO 
100 ND 

120 A=PEEK(203):IF A=64 THEN 110 PK 
130 IF A=62 THEN POKE 198,0: SYS 65126: RE 
M "WARM START" ENDS PROGRAM IC 

135 IF A=41 THEN DS=1:G0T0 110:REM SET F 
LAG TO PRINT FR$() VALUES OJ 

140 IF A=13 THEN PRINT "[HOME]SAVING DIS 
K FILE": GOSUB 200 GD 

145 IF A=39 THEN DS=0:REM SET FLAG TO ST 
OP PRINTING FR$() 00 

150 IF A=18 THEN 20000: REM MAKE DATA STA 
TEMENTS AND WIPE OUT LINES>9400 FG 
190 GOTO 110 CC 

200 OPEN 2, 8, 2, "@0: SONG #1,S,W" MO 
210 CR$=CHR$(13):PRINT#2,ES%CR$EV%CR$LD% 
CR$ ; PI 

215 FOR 1=0 TO 2:PRINT#2,G%(I)CR$;:NEXT: 
FOR 1=0 TO 2 NF 

220 PRINT#2,AK%(I)CR$DY%(I)CR$SN%(I)CR$R 
E%(I)CR$; PL 

225 FOR N=0 TO 1:PRINT#2,PW%(I,N)CR$; :NE 
XT: NEXT BA 

230 FOR 1=0 TO 9:PRINT#2,DU%(I)CR$; :NEXT PH 
235 FOR PH=0 TO ES%:PRINT#2,MD$(PH)CR$; : 



C008: 


AD 


04 


CO 


FO 


13 


A9 


01 


8D 


B6 


C010: 


04 


CO 


AD 


03 


CO 


30 


04 


C9 


44 


C018: 


40 


30 


05 


A9 


3F 


8D 


03 


CO 


C7 


C020: 


AD 


05 


CO 


10 


OB 


29 


7F 


C9 


21 


C028: 


48 


30 


05 


A5 


C7 


8D 


05 


CO 


66 


C030: 


AD 


05 


CO 


29 


F8 


85 


FB 


A9 


FO 


C038: 


00 


85 


FC 


A5 


FB 


18 


2A 


26 


C4 


C040: 


FC 


2A 


26 


FC 


2A 


26 


FC 


85 


5D 


C048: 


FD 


A5 


FC 


85 


FE 


A5 


FD 


2A 


3B 


C050: 


26 


FC 


2A 


26 


FC 


18 


65 


FD 


3C 


C058: 


85 


FD 


A5 


FC 


65 


FE 


85 


FE 


67 


C060: 


AD 


05 


CO 


29 


07 


18 


65 


FD 


7F 


C068: 


85 


FD 


A5 


FE 


69 


00 


85 


FE 


7E 


C07 0: 


AD 


03 


CO 


29 


F8 


18 


65 


FD 


7F 


C078: 


85 


FD 


AD 


04 


CO 


65 


FE 


85 


58 


C080: 


FE 


AD 


06 


CO 


18 


65 


FD 


85 


F4 


C088: 


FD 


AD 


07 


CO 


65 


FE 


85 


FE 


E4 


C090: 


AD 


03 


CO 


29 


07 


85 


FB 


A9 


5D 


C098: 


07 


38 


E5 


FB 


AA 


38 


A9 


00 


46 


COAO: 


2A 


CA 


10 


FC 


85 


FC 


AO 


00 


C5 


C0A8: 


Bl 


FD 


05 


FC 


91 


FD 


60 


FF 


4A 


FROM PAGE 18 


tu 


^i 


eh 


^ 


SONG MAKER 



1 REM "SONG MAKER" IL 

3 REM THIS PROGRAM LETS YOU COPY THE FR$ 
() STRINGS FROM THE SCREEN DISPLAY KI 
5 REM OR SAVE THE FR$() STRINGS ON DISK 
FOR RETRIEVAL BY "SONG LOADER" EN 
7 REM YOU TYPE IN SONGS AT 9500-9890 AND 
NAME THE SONG SAVE FILE AT 200 KB 
10 GOSUB 9000: GOTO 80 IB 

60 FOR N=l TO LEN(MD$(PH)):SYS MM LH 
62 F$=FR$(N,PH) DG 

65 SYS M ON 

66 IF DS=1 THEN GOSUB 500 OE 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 
):NEXT JB 

68 REM SYS MM: REM STACCATO NOTES GA 

69 NEXT:PH=PH+1:IF PH>ES% THEN PH=0 I J 

70 SYS MM: RETURN AO 

80 PRINT "[CLEAR] [13"[D0WN]"]SHIFT = 'PL 
AY NEXT PHRASE"' KA 

81 PRINT "[4" "]Q = 'QUIT'" LA 

82 PRINT "[4" "]S = 'SAVE SONG ON DISK 1 " JM 

83 PRINT "[4" "]D = 'MAKE DATA STATEMENT 

S AT LINE[12" "]9400"' GA 

]P = 'PRINT EACH F$ STRIN 

GG 
] PLAYS; WAIT FOR KEYPRESS 

OK 
86 PRINT "[9" "] BETWEEN NOTES'" NN 
]N = 'NO PRINTING OF F$ S 

GJ 
HO 



84 PRINT "[4 1 
G AS IT" 

85 PRINT "[9' 



87 PRINT "[4 
TRINGS'" 
90 DS=0 



PRINT "<' 



KM 



240 FOR N=l TO LEN(MD$(PH)):FOR 1=1 TO 6 PF 
245 PRINT#2,MID$(FR$(N,PH),I,1)CR$;:NEXT 
: NEXT: NEXT DM 

290 CLOSE 2 :PH=0: RETURN FI 

500 PRINT "[HOME] [DOWN] [DOWN ]N0TE[5" "][ 
3"[LEFT]"]"N:F0R 1=0 TO 2: PRINT "[20" "] 
"-.NEXT U 

505 PRINT "[HOME] [3" [DOWN]"]": FOR 1=1 TO 

5 STEP 2 MJ 

507 PRINT "[15" "] [15" [LEFT]"]"; GA 
510 PRINT ASC(MID$(F$,I,1))" "ASC(MID$( 
F$, 1+1,1))" ":NEXT GO 

515 PRINT "PRESS SHIFT TO GO ON" CB 
520 IF PEEK ( 653 )=0 THEN 520 HO 

525 PRINT "[UP] [21" "]" BL 

530 RETURN IM 

8998 REM SET UP SOUND SHAPE FD 

9000 F$="F" : I=0:N=0 : VC=0 :M=848 :MM=823 : RE 

M M&MM PUT ML IN CASSETTE BUFFER JG 

9001 PH=0:ES%=8:DIM MD$(ES%),G%(2) ,AD(2) 
,Y%(2) MK 

9002 DIM ME$(ES%,2),MV$(ES%,2) ED 

9003 REM PREVIOUS LINE: 9002 DIM ME$(ES%, 
2),MV$(ES%,2) GE 

9004 DIM DU%(9),PI%( 168,1), AK%(2),DY%(2) 
,SN%(2),RE%(2),WF%(2),PW%(2,1) IP 

9008 REM ATTACK—VOICES 0,1,2 KG 

9009 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SHARPER ATTACK OK 



90 AHOY! 



9010 AK%(0)=0:AK%(1)=0:AK%(2)=0 CP 
9015 FOR 1=0 TO 2: AK%(I)=AK%(I)*16:NEXT FF 

9018 REM DECAY— VOICES 0,1,2 PK 

9019 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DECLINE GA 

9020 DY%(0)=5:DY%(1)=3:DY%(2)=3 AL 

9028 REM SUSTAIN— VOICES 0,1,2 FC 

9029 REM NUMBER FROM TO 15; LOWER NUMB 
ER=SOFTER VOLUME DURING SUSTAIN JM 

9030 SN%(0)=2:SN%(1)=0:SN%(2)=0 CI 
9035 FOR 1=0 TO 2:SN%(I)=SN%(I)*16:NEXT BD 

9038 REM RELEASE— VOICES 0,1,2 OK 

9039 REM NUMBER FROM TO 15; LOWER NUMB 
ER=FASTER DROP TO SILENCE AT END PJ 

9040 RE%(0)=0:RE%(1)=3:RE%(2)=5 BG 
9048 REM SET SOUND ADDRESSES JC 
9050 FOR 1=0 TO 2: AD(I)=54277+7*I:NEXT IL 
9058 REM POKE ADSR ENVELOPES JL 
9060 FOR 1=0 TO 2: POKE AD(I),AK%(I) OR D 
Y%(I) DM 
9065 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 

9067 REM SET UP GATES JN 

9068 REM WAVEFORMS, VOICES 0,1,2 (ADD VA 
LUES): DJ 

9069 REM TRIANGLE 0N=16; SAWTOOTH 0N=32; 
PULSE 0N=64 (SET WIDTH!); NOISE 0N=128 IL 

9070 WF%(0)=32:WF%(1)=64;WF%(2)=64 LH 
9075 G%(0)=WF%(0)0R 1:G%(1)=WF%(1) OR 3: 
G%(2)=WF%(2) OR 1 CG 

9078 REM SET PULSE WIDTHS AC 

9079 REM VOICES 0,1,2; LOW BYTE, HIGH BY 
TE MG 

9080 PW%(0,0)=200:PW%(0,1)=3 PB 

9081 PW%(1,0)=200:PW%(1,1)=10 HJ 

9082 PW%(2,0)=200:PW%(2,1)=7 KB 

9085 FOR 1=0 TO 2:VC=54274+I*7:F0R N=0 T 

1 OB 

9086 POKE VC+N,PW%(I,N): NEXT: NEXT NG 
9098 REM SET UP DURATIONS ME 
9100 FOR 1=0 TO 9:READ DU%(I):NEXT MB 
9105 DATA 40,96,128,192,256,384,512,640, 
768,1024 EG 
9196 REM MACHINE LANGUAGE ROUTINE (AT M) HM 
9198 REM FIND ADDRESS OF F$ AND PUT IT I 

N ZERO PAGE AT 139, 140 MA 

9200 N=PEEK(45)+256*PEEK(46)+3:Y%=N/256: 
X%=N-Y%*256 IF 

9205 POKE M, 173: POKE M+1,X%:P0KE M+2,Y%: 
N=N+1:Y%=N/256:X%=N-Y%*256 AN 

9210 POKE M+3, 133: POKE M+4, 251: POKE M+5, 
173: POKE M+6,X%:P0KE M+7,Y% NK 

9215 POKE M+8,133:P0KE M+9,252:P0KE M+10 
,160:P0KE M+11,0 HA 

9220 POKE M+12,162:P0KE M+13,0 GG 
9223 REM GET EACH PITCH FROM F$ AND PUT 
IT IN FREQUENCY REGISTER CH 

9225 FOR I=M+14 TO M+54 STEP 8: POKE 1,17 
7: POKE 1+1,251 KF 



9230 POKE 1+2, 157: POKE 1+3,0: POKE 1+4,21 
2 HK 

9235 POKE 1+5, 200: POKE 1+6, 162: READ A:PO 
KE 1+7, A: NEXT IE 

9236 DATA 1,7,8,14,15,4 AK 
9238 REM GATE EACH SOUND OPEN MC 

9240 N=0:FOR I=M+59 TO M+71 STEP 6 BJ 

9241 POKE I,173:A=MM-3+N:Y%=A/256:X%=A-2 
56*Y%:P0KE I+1,X%:P0KE 1+2, Y% PO 

9242 POKE 1+3 ,141 -.READ A: POKE I+4,A:P0KE 
I+5,212:N=N+1:NEXT DG 

9243 DATA 4,11,18 PB 
9248 REM GARBAGE COLLECTION ME 
9250 FOR I=M+77 TO M+90-.READ A: POKE I, A: 
NEXT CE 
9255 DATA 164,52,165,51,105,6,144,1,200, 
133,51,132,52,96 BN 
9258 REM GATE-OFF ML ROUTINE AT MM LA 

9260 FOR I=MM TO MM+16 STEP 8 GG 

9261 POKE I,173:Y%=3:X%=34+(I-MM)/8:P0KE 
I+1,X%:P0KE 1+2, Y%: REM USES 820-822 BB 

9262 POKE 1+3,41: POKE 1+4,254 DI 

9263 POKE 1+5, 141: READ A: POKE I+6,A:P0KE 
1+7, 21 2: NEXT: POKE MM+24,96 KD 

9264 DATA 4,11,18 PB 

9268 REM SET WAVEFORMS WITH GATES OFF NK 

9269 REM STORED AT 820-822— LINE 9261 R 
EQUIRES THIS (820=HEX 03 34) BO 

9270 POKE 820, G%(0): POKE 821,G%(1) :POKE 
822,G%(2):SYS MM OB 

9297 REM SET FILTER AND VOLUME BN 

9298 REM FILTER FREQUENCY DE 

9299 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 

9300 X%=3:Y%=150 GF 
9305 POKE 54293, X%: POKE 54294, Y% KJ 

9308 REM FILTER ON? DD 

9309 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

9310 X%=0 FM 

9318 REM FILTER RESONANCE CE 

9319 REM PEAK VOLUME (0=LOW, 15=HIGH) FH 

9320 Y%=14 JL 
9325 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9328 REM SELECT FILTER TYPE CP 

9329 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 
S=4;L0-BAND=3;HI-BAND=6;ALL=7 MH 

9330 X%=1 FP 
9335 X%=X%*16 LC 

9338 REM SELECT OVERALL VOLUME FJ 

9339 REM 15=HIGH, 0=LOW PB 

9340 Y%=15:P0KE 54296, X% OR Y% EK 
9345 EV%=2:REM SET NUMBER OF VOICES (MIN 
US 1) IN 
9350 GOTO 9400 GG 

9358 REM MUSIC DATA LOADER (EFFECTIVE ON 
LY IF 'MAKE DATA' WAS EXECUTED NP 

9359 REM DURING MAIN LOOP) PB 
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9360 READ ES%:READ LD%:DIM FR$(LD%,ES%) NA 
9365 FOR PH=0 TO ES%:READ MD$(PH):FOR N= 
1 TO LEN(MD$(PH)): PRINT "!"; MG 

9370 FOR 1=1 TO 6:READ A:FR$(N,PH)=FR$(N 
,PH)+CHR$( A): NEXT: NEXT: NEXT AD 

9375 PH=0: RETURN DO 

9397 REM SET UP PITCH ARRAY DK 

9398 REM EACH NOTE, IN ALL ITS OCTAVES JB 

9399 REM C NE 

9400 X%=3:G0SUB 9490 CB 

9401 DATA 12,1,24,2,48,4,97,8,195,16,135 
,33,15,67,30,134 IF 

9402 REM D NH 

9403 X%=4:G0SUB 9490 PG 

9404 DATA 45,1,90,2,180,4,104,9,209,18,1 
62,37,69,75,139,150 PA 

9405 REM E (F-FLAT) MH 

9406 X%=5:G0SUB 9490:Y%=13:GOSUB 9495 IL 

9407 DATA 81,1,163,2,71,5,143,10,31,21,6 
2,42,125,84,250,168 HM 

9408 REM F (E-SHARP) DB 

9409 X%=6:G0SUB 9490:Y%=19:G0SUB 9495 IK 

9410 DATA 102,1,204,2,152,5,48,11,96,22, 
193,44,131,89,6,179 IL 

9411 REM G NI 

9412 X%=7:G0SUB 9490 PF 

9413 DATA 145,1,35,3,71,6,143,12,30,25,6 
0,50,121,100,243,200 GM 

9414 REM A NC 

9415 X%=1:G0SUB 9490 OH 

9416 DATA 195,1,134,3,12,7,24,14,49,28,9 
9,56,199,112,143,225 PI 

9417 REM B NF 

9418 X%=2:G0SUB 9490 PE 

9419 DATA 250,1,244,3,233,7,210,15,165,3 
1,75,63,151,126,46,253 CF 

9420 REM D-FLAT (C-SHARP) JL 

9421 X%=11:G0SUB 9490:Y%=17:G0SUB 9495 NH 

9422 DATA 28,1,56,2,112,4,225,8,195,17,1 
34,35,12,71,24,142 KJ 

9423 REM E-FLAT (D-SHARP) FD 

9424 X%=12:G0SUB 9490:Y%=18:G0SUB 9495 GF 

9425 DATA 62,1,125,2,251,4,247,9,239,19, 
223,39,191,79,126,159 FB 

9426 REM G-FLAT (F-SHARP) HH 

9427 X%=14:G0SUB 9490:Y%=20:GOSUB 9495 IM 

9428 DATA 123,1,246,2,237,5,218,11,181,2 
3,107,47,214,94,172,189 HG 

9429 REM A-FLAT (G-SHARP) HE 

9430 X%=8:G0SUB 9490:Y%=21:G0SUB 9495 LD 

9431 DATA 169,1,83,3,167,6,78,13,156,26, 
57,53,115,106,230,212 PA 

9432 REM B-FLAT (A-SHARP) FP 

9433 X%=9:G0SUB 9490:Y%=15:GOSUB 9495 GB 

9434 DATA 221,1,187,3,119,7,239,14,223,2 
9,190,59,124,119,248,238 CN 

9435 REM C-FLAT CH 

9436 X%=10:G0SUB 9490 EO 



9437 DATA 4,1,250,1,244,3,233,7,210,15,1 
65,31,75,63,151,126 AK 

9438 REM B-SHARP IN 

9439 X%=16:G0SUB 9490 CE 

9440 DATA 24,2,48,4,97,8,195,16,135,33,1 
5,67,30,134,255,255 NM 
9485 GOTO 9500 FP 

9489 REM READ PITCHES NA 

9490 FOR 1=0 TO 147 STEP 21: READ PI%(I+X 
%,0),PI%(I+X%,1):NEXT: RETURN FN 

9494 REM IDENTICAL PITCHES GA 

9495 FOR 1=0 TO 147 STEP 21:PI%(I+Y%,0)= 
PI%(I+X%,0):PI%(I+Y%,1)=PI%(I+X%,1) LN 

9496 NEXT: RETURN EJ 

9497 REM EACH PHRASE HAS ONLY ONE DU%(PH 

) STRING, NO MATTER HOW MANY VOICES AO 

9498 REM EACH PHRASE HAS ONE ME$(PH,VC) 

& ONE MV$(PH,VC) STRING PER VOICE IP 

9499 REM PHRASE IP 

9500 MD$(0) = "100[7 ,, 1"]00[6 ,, 1"]" CL 

9501 ME$(0,0)="[4"F"]GAFG@[4"F"]GAFGE" FG 

9502 MV$(0,0)="6[17" "]" PD 

9503 ME$(0,1)="CC@DCGD[4"C"]@DCGDCC" EG 

9504 MV$(0,1)="45 45354545 453545" BJ 

9505 ME$(0,2)="FA@EAGBC[c B]FA@DAGBC[c B 

]" CA 

9506 MV$(0,2)="34 34343434 343434" EI 

9509 REM PHRASE 1 10 

9510 MD$(1) = ,, 100[14"1"] M PO 

9511 ME$(1,0)="[4"F"]GAFGEF[7"@"]" JP 

9512 MV$(1,0)="6[16" "]" OE 

9513 ME$(1,1)="FC@ECDBCCFCECDACA" FD 

9514 MV$(1,1)="45 454 545454 5" BO 

9515 ME$(l,2)="FA@EADBC[c B]FAEADFCF" II 

9516 MV$(1,2)="34 34343434343435" 01 

9519 REM PHRASE 2 JB 

9520 MD$(2) = ,, 100[7"l ,l ]00[6"l"]" JF 

9521 ME$(2,0)="[c B]@[c B][c B]CD[c B]C@ 

[c B]@[c B][c B]CD[c B]CA" BA 

9522 MV$(2,0)="6[3" "]7 67 6[3" "]7 676" IH 

9523 ME$(2,1)="@F@@FCGFF@F@@FCGFF" DA 

9524 MV$(2,1)=" 5[3" "]4545[5" "]4545" PB 

9525 ME$(2,2)="[c B]D@GDCEF[c E][c B]D@G 
DCEF[c E]" HD 

9526 MV$(2,2)="35 35353535 353535" HE 

9529 REM PHRASE 3 JA 

9530 MD$(3) = "100[12"1"]" DH 

9531 ME$(3,0)="[c B]@[c B][c B]CD[c B]CA 

[c B][5"@"] n AG 

9532 MV$(3,0)="6[3" "]7 676[6" "]" OJ 

9533 ME$(3,l)="[c B]F@AFGEFF[c B]FAFGF" JI 

9534 MV$(3,1)="45 454545454545" LI 

9535 ME$(3,2)="[c B]D@ADGCF[c E][c B]DAD 
GD" BA 

9536 MV$(3,2)="35 353535353535" MM 

9539 REM PHRASE 4 JD 

9540 MD$(4) = "[16"1"]" HA 

9541 ME$(4,0)="F[c B]C@C[3"fa"]D[c B]C[5" 
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<§"]" PF 

9542 MV$(4,0)="6 7[6" "]67[5" "]" CF 

9543 ME$(4,l)="[3"F"]AG[c B]AADGFAG[c B] 
AA" NK 

9544 MV$(4,1)="45454545 4 54545" LH 

9545 ME$(4,2)="FDFFGEAF[c B] [3"F"]GEAF" JH 

9546 MV$(4,2)="3535353534353535" DK 

9549 REM PHRASE 5 JC 

9550 MD$(5) = ,, [18 , *l n ] M P0 

9551 ME$(5,0)="CFG§G(3@GAFG[7"@"]" EC 

9552 MV$(5,0)="6[17" "]" OG 

9553 ME$(5,1)="@BGEGFGE@BFECCAFGC" MA 

9554 MV$(5,1)=" 4 54545 4 5453[3" "]" NN 

9555 ME$(5,2)="@AECDBECGACFC[c B]AFGF" BI 

9556 MV$(5,2)=" 4 54 534343 2 1" MA 

9559 REM PHRASE 6 JF 

9560 MD$(6) = "100[7"1"]00[6"1"]" HJ 

9561 ME$(6,0)="[4"F"]GAFG@[4"F"]GAFGE" GI 

9562 MV$(6,0)="6[17" "]" BF 

9563 ME$(6,1)="CC@DCGD[4"C"]@DCGDCC" DA 

9564 MV$(6,1)="45 45354545 453545" KD 

9565 ME$(6,2)="FA@EAGBC[c B]FA@DAGBC[c B 

]" IK 

9566 MV$(6,2)="34 34343434 343434" NC 

9569 REM PHRASE 7 JE 

9570 MD$(7) - "100[13"1"]" EP 

9571 MB$(7,0)« n F§FFGAFGEC[3"@"]C@@" BB 

9572 MV$(7,0)="6[12" "]7 " MJ 

9573 ME$(7,l)="FC@ECDBCC@A@[c B]CF@" GE 

9574 MV$(7,1)="45 454 5 4 5 " EL 

9575 ME$(7,2)="FA@EADBC[c B]FFGRA[c E]§" NN 

9576 MV$(7,2)="34 343434343435 " BI 

9579 REM PHRASE 8 JH 

9580 MD$(8) = "[4"1"]00[12"1"]" GF 

9581 ME$(8,0)="DC@C@[c B]AFGDF[3"@"]F[3" 
@"]" OA 

9582 MV$(8,0)="7[4" "]6[8" "]7[3" "]" EN 

9583 ME$(8,l)="[c B]CACA@@C@CFDC[c B]A@F 
@" FG 

9584 MV$(8,1)="5[9" "]46 5 4" II 

9585 ME$(8,2)="DCFCF@CAC[c B]F[c B]AGF@F 
@" FG 

9586 MV$(8,2)="54535 4 3435[4" "]3 " LP 
9898 REM SET UP CONVERSION TABLE KO 
9900 DIM TB%(255) EG 

9910 FOR 1=0 TO 255:TB%(I)=0:NEXT CE 

9911 FOR 1=65 TO 72:TB%(I)=I-64:NEXT NB 

9912 FOR 1=193 TO 199:TB%(I)=I-178:NEXT EN 

9913 FOR 1=8 TO 14:READ A:TB%(A)=I:NEXT AD 

9914 REM NEXT LINE SAYS: 9915 DATA 176,1 
91,188,172,177,187,165 EB 

9915 DATA 176,191,188,172,177,187,165 CB 

9916 REM (LINE 9915 IS DELETED BY 'MAKE 
DATA' OPTION) LD 

9919 REM FIND LONGEST PHRASE, AND DIM FR 

$ TO EXACT LENGTH NEEDED DM 

9920 LD%=0:F0R 1=0 TO ES%:X%=LEN(MD$(I)) 
:IF X%>LD% THEN LD%=X% FJ 



9921 NEXT IA 

9925 DIM FR$(LD%,ES%) CN 

9928 REM CONVERT STRINGS TO USABLE FORM IG 
9930 FOR PH=0 TO ES%:FOR N=l TO LEN(MD$( 
PH)):FR$(N,PH)="" BP 

9935 FOR VC=0 TO EV%:X%=TB%(ASC(MID$(ME$ 
(PH,VC),N,1))) NG 

9940 V$=MID$(MV$(PH,VC),N,1):IF V$<>" " 
THEN Y%(VC)=21*VAL(V$) JN 

9945 IF X%<>0 THEN X%=X%+Y%(VC) DA 
9950 FR$(N,PH)=FR$(N,PH)+CHR$(PI%(X%,0)) 
:FR$(N,PH)=FR$(N,PH)+CHR$(PI%(X%,1)) DP 
9955 NEXT IA 

9960 IF EV%<2 THEN FR$(N,PH)=FR$(N,PH)+L 
EFT$(FR$(N,PH),2) AL 

9965 IF EV%<1 THEN FR$(N,PH)=FR$(N,PH)+L 
EFT$(FR$(N,PH),2) FK 

9970 PRINT ".";:NEXT:NEXT NI 

9980 PH=0 HP 

9990 RETURN IM 

19998 REM ROUTINE TO MAKE DATA STATEMENT 
S THROUGH FORCED SCREEN READS JC 

20000 PRINT "[CLEAR] [ 3" [DOWN ]"]MAKING DA 
TA STATEMENTS WIPES OUT ALL THE" MI 

20001 PRINT "LINES NOT DIRECTLY NEEDED." 

: PRINT: PRINT" [7" "] PROCEED? (Y OR N)" LM 

20002 A=PEEK(203):IF (A<>39) AND (A<>25) 
THEN 20002 AC 

20003 IF A=39 THEN 80 PI 

20005 A=49152 PB 

20006 FOR PH=0 TO ES%:B=LEN(MD$(PH)):POK 

E A,B:A=A+1:PRINT ">";:FOR N=l TO B KD 

20007 POKE A,ASC(MID$(MD$(PH),N,1)):A=A+ 
l-.NEXT OF 

20008 FOR N=l TO B:FOR 1=1 TO 6: POKE A, A 
SC(MID$(FR$(N,PH),I,1)):A=A+1 HN 

■ 20009 NEXT : NEXT: NEXT : B=A-1 : A=49152 :C=940 

0:CR$=CHR$(13):D=4 CJ 

•20010 PRINT "[CLEAR] [DOWN] [DOWN] 9350 REM 
DELETED"CR$"9390 DATA"ES%"[LEFT] ,"LD%CR 

$; IG 

•20011 PRINT "9002 REM DELETED"CR$; MA 
•20015 GOSUB 20085: IF D>8 THEN 20091 GJ 
•20020 GOSUB 20080: IF D>8 THEN 20090 CB 
•20025 IF A>=B THEN 20092 BE 

•20030 IF N=0 THEN 20015 GE 

■20035 GOTO 20020 HN 

•20040 PRINT "[CLEAR] [DOWN] [DOWN]" ;:D=0:C 

R$=CHR$(13):G0T0 20025 LF 

•20041 PRINT "[CLEAR] [DOWN] [DOWN]" ;:D=0:C 

R$=CHR$(13):G0T0 20020 KO 

•20079 REM ROUTINE TO PRINT FR$() DATA ST 

ATEMENT ON SCREEN DG 

•20080 PRINTC"DATA";:F0RI=1T0 6:PRINTPEEK 

(A)"[LEFT],";:A-A+1:NEXT:C=C+1:D=D+1:N=N 

-1 JI 

•20081 PRINT CHR$ ( 20 )CR$;: RETURN OK 
•20084 REM ROUTINE TO PRINT MD$() DATA ST 
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ATEMENT ON SCREEN IJ 

•20085 A$="":N=PEEK(A):A=A+1:F0R 1=1 TO N 

:A$=A$+CHR$(PEEK(A)):A=A+1:NEXT GB 
•20086 PRINT C"DATA"CHR$(34)A$CHR$(34)CR$ 

;:C=C+1:D=D+1: RETURN CD 

•20088 REM SET UP LAST LINE TO EXECUTE FR 

OM SCREEN BM 

•20090 PRINT "A="A"[LEFT]:B="B"[LEFT]:C=" 

C"[LEFT] :N="N M [LEFT] :G0T0 20040"CR$; :G0T 

20095 NP 

•20091 PRINT "A="A"[LEFT]:B="B"[LEFT]:C=" 

C n [ LEFT ]:H- ll N n [ LEFT]: GOTO 20041"CR$; :G0T 

20095 FG 

•20092 PRINT "C="C-1":G0T0 20100"CR$; :G0T 

20095 ON 
•20094 REM LOAD KEYBOARD BUFFER WITH CARR 

IAGE RETURNS AND GO READ SCREEN LO 
•20095 FOR 1=631 TO 640: POKE I,13:NEXT:P0 

KE 198,10:PRINT "[HOME]"; :END OE 

•20100 A=PEEK(43)+256*PEEK(44):PRINT "[CL 

EAR]"; BN 

•20105 B=PEEK(A+2)+256*PEEK(A+3):A=PEEK(A 

)+256*PEEK(A+l) EB 

•20106 PRINT "[HOME] "A" "B" "C LA 
•20110 IF B=C THEN 20120 GK 

•20115 GOTO 20105 IH 

•20120 POKE A, 0: POKE A+l,0:A=A+2 OH 
•20125 B=INT( A/256) :C=A-256*B FE 

•20130 PRINT "[ CLEAR ][ DOWN ][ DOWN ]1 50" :PRI 

NT "83" IJ 

•20135 PRINT "P0KE45,"C"[LEFT]:P0KE46,"B" 

[ LEFT ]: P0KE47 , "C" [ LEFT ]: P0KE48 , "B" [ LEFT ] 

:P0KE49,"C EH 

•20140 PRINT "P0KE50,"B"[ LEFT]: GOTO 10" NJ 
•20145 FOR 1=631 TO 640:P0KE I,13:NEXT;P0 

KE 198,10:PRINT "[HOME]"; :END OE 

SONG LOADER 

1 REM "SONG LOADER" NM 
3 REM THIS IS AN EXAMPLE OF HOW TO LOAD 
AND USE A SONG STORED ON DISK JB 

5 REM USING THE PROGRAM "SONG MAKER" PD 

6 REM JD 

7 REM LINE 10 AND LINE 9000 MUST EXECUTE 
BEFORE ANYTHING ELSE IN YOUR PROGRAM FD 

9 REM JD 

10 GOSUB 9000: GOTO 80 IB 
60 FOR PH=0 TO ES%:F0R N=l TO LEN(MD$(PH 
)):SYS MM MC 
62 F$=FR$(N,PH) DG 
65 SYS M ON 

67 FOR 1=0 TO DU%(VAL(MID$(MD$(PH),N,1)) 
):NEXT JB 

68 REM SYS MM: REM STACCATO NOTES GA 

69 NEXT: NEXT EF 

70 SYS MM: RETURN AO 
80 PRINT "[ CLEAR ]WHEN SONG ENDS, PRESS": 
PRINT: PRINT "SHIFT TO REPEAT SONG" PC 
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85 PRINT "OR Q TO QUIT" FP 

100 IF PEEK (653)00 THEN GOSUB 60: GOTO 1 
00 ND 

110 IF PEEK(203)=62 THEN POKE 198,0: SYS 
65126 HG 

190 GOTO 100 CF 

8997 REM JD 

8998 REM SET UP SOUND AND LOAD SONG MN 

8999 REM JD 

9000 F$="F" : 1=0 : N=0 : VC=0 : M=848 : MM=823 : RE 

M M & MM PUT ML IN CASSETTE BUFFER JG 

9001 PH=0;DIM G%(2), AD(2) ,DU%(9) ,AK%(2) , 
DY%(2),SN%(2),RE%(2),WF%(2),PW%(2,1) DI 

9007 REM JD 

9008 REM OPEN SONG FILE & GET # OF PHRAS 
ES AND # OF VOICES JJ 

9009 REM JD 

9010 OPEN 2, 8, 2, "0: SONG #1,S,R" OM 
9015 INPUTS, ES%,EV%,LD% JC 

9017 REM JD 

9018 REM DIMENSION KEY VARIABLES NH 

9019 REM JD 

9020 DIM FR$(LD%,ES%),MD$(ES%) CC 

9027 REM JD 

9028 REM LOAD THE REMAINDER OF THE VARIA 
BLES FROM THE SONG FILE GI 

9029 REM JD 

9030 FOR 1=0 TO 2:INPUT#2,G%(I):NEXT JO 

9031 FOR 1=0 TO 2:INPUT#2, AK%(I),DY%(I), 
SN%(I),RE%(I) CB 

9032 FOR N-0 TO l:INPUT#2 t PW%(I,N) :NEXT: 
NEXT JM 

9033 FOR 1=0 TO 9:INPUT#2,DU%(I) :NEXT MP 

9034 FOR PH=0 TO ES%:INPUT#2,MD$(PH) :F0R 
N=l TO LEN(MD$(PH)) BL 

9035 FOR 1=1 TO 6:GET#2, A$,B$ PJ 

9036 IF A$="" THEN A$=CHR$(0) OE 

9037 FR$(N,PH)=FR$(N,PH)+A$:NEXT:NEXT:NE 
XT JE 

9040 CLOSE 2 NC 

9041 REM JD 

9042 REM SET UP ENVELOPES BM 

9043 REM JD 

9044 FOR 1=0 TO 2:AD(I)=54277+7*I:NEXT IL 

9045 FOR 1=0 TO 2: POKE AD(I),AK%(I) OR D 
Y%(I) DM 

9046 POKE AD(I)+1,SN%(I) OR RE%(I):NEXT DK 

9047 REM JD 

9048 REM SET PULSE WIDTHS AC 

9049 REM JD 

9050 FOR 1=0 TO 2:VC=54274+I*7:F0R N-0 T 

1 OB 

9051 POKE VC+N,PW%(I,N):NEXT:NEXT NG 

9066 REM JD 

9067 REM SET FILTER AND VOLUME BN 

9068 REM FILTER FREQUENCY DE 

9069 REM LOW BYTE (0-7) X%; HIGH BYTE (0 
-255) Y% PA 



9070 X%=3:Y%=150 GF 

9071 POKE 54293, X%: POKE 54294, Y% KJ 

9072 REM FILTER ON? DD 

9073 REM VOICE 1 0N=1; 2 0N=2; 3 0N=4; 1 
&2 0N=3; 2&3 0N=6; ALL 0N=7 AL 

9074 X%=0 FM 

9075 REM FILTER RESONANCE CE 

9076 REM PEAK VOLUME (0=L0W, 15-HIGH) FH 

9077 Y%=14 JL 

9078 Y%=Y%*16:P0KE 54295, X% OR Y% MG 

9079 REM SELECT FILTER TYPE CP 

9080 REM L0W-PASS=1;BAND-PASS=2; HIGH-PAS 
S=4;L0-BAND=3;HI-BAND=6;ALL=7 MH 

9081 X%=1 FP 

9082 X%=X%*16 LC 

9083 REM JD 

9084 REM SELECT OVERALL VOLUME FJ 

9085 REM 15=HIGH, 0=LOW PB 

9086 Y%=15 JK 

9087 POKE 54296, X% OR Y% HN 

9197 REM JD 

9198 REM MACHINE LANGUAGE ROUTINE AT M CE 

9199 REM JD 

9218 REM FIND ADDRESS OF F$ AND PUT IT I 

N ZERO PAGE AT 139, 140 MA 

9219 REM JD 

9220 N=PEEK(45)+256*PEEK(46)+3:Y%=N/256: 
X%=N-Y%*256 IF 

9221 POKE M, 173: POKE M+1,X%:P0KE M+2,Y%: 
N=N+1:Y%=N/256:X%=N-Y%*256 AN 

9222 POKE M+3,133:P0KE M+4,251:P0KE M+5, 
173: POKE M+6,X%:P0KE M+7,Y% NK 

9223 POKE M+8, 133: POKE M+9, 252: POKE M+10 
,160: POKE M+11,0 HA 

9224 POKE M+12,162:P0KE M+13,0 GG 

9228 REM JD 

9229 REM GET EACH PITCH FROM F$ AND PUT 

IT IN FREQUENCY REGISTER CH 

9230 FOR I=M+14 TO M+54 STEP 8:P0KE 1,17 

7: POKE 1+1,251 KF 

9231 POKE I+2,157:POKE I+3,0:P0KE 1+4,21 

2 HK 

9232 POKE 1+5 ,200: POKE 1+6, 162: READ A:P0 
KE 1+7, A: NEXT IE 

9233 DATA 1,7,8,14,15,4 AK 

9238 REM JD 

9239 REM GATE EACH SOUND OPEN MC 

9240 N=0:FOR I=M+59 TO M+71 STEP 6 BJ 

9241 POKE I,173:A=MM-3+N:Y%=A/256:X%=A-2 
56*Y%:P0KE I+1,X%:P0KE 1+2, Y% PO 

9242 POKE 1+3, 141: READ A: POKE 1+4, A: POKE 
I+5,212:N=N+1:NEXT DG 

9243 DATA 4,11,18 PB 

9247 REM JD 

9248 REM GARBAGE COLLECTION ME 
9250 FOR I=M+77 TO M+90:READ A: POKE I, A: 
NEXT CE 
9255 DATA 164,52,165,51,105,6,144,1,200, 



133,51,132,52,96 BN 

9257 REM JD 

9258 REM GATE-OFF ML ROUTINE AT MM LA 

9259 REM JD 

9260 FOR I=MM TO MM+16 STEP 8 GG 

9261 POKE I,173:Y%=3:X%=34+(I-MM)/8:POKE 
I+1,X%:P0KE 1+2, Y%: REM USES 820-822 BB 

9262 POKE 1+3,41: POKE 1+4,254 DI 

9263 POKE 1+5, 141: READ A: POKE 1+6, A: POKE 
1+7, 212: NEXT -.POKE MM+24,96 KD 

9264 DATA 4,11,18 PB 

9267 REM JD 

9268 REM SET WAVEFORMS WITH GATES OFF NK 

9269 REM STORED AT 820-822— LINE 9261 RE 
QUIRES THIS (820=HEX 03 34) BO 

9270 POKE 820,G%(0):POKE 821,G%(1) :P0KE 
822,G%(2):SYS MM OB 
9280 PH=0 HP 
9290 RETURN IM 

SUMMERTIME 
1 REM "SUMMERTIME" ON 

3 REM ADD THESE LINES TO "SONG MAKER" TO 
CREATE THE SONG "SUMMERTIME" CF 

5 REM FROM "PORGY AND BESS" BY GEORGE AN 
D IRA GERSHWIN LP 

7 REM FIRST DELETE ALL "SONG MAKER" LINE 
S ABOVE 9500 AND BELOW 9900 EP 

9001 PH=0:ES%=3:DIM MD$(ES%) ,G%(2) ,AD(2) 
,Y%(2) OL 

9010 AK%(0)=2:AK%(1)=0:AK%(2)=4 LN 
9020 DY%(0)=5:DY%(1)=0:DY%(2)=8 LP 
9030 SN%(0)=4:SN%(1)=0:SN%(2)=1 LN 
9040 RE%(0)=2:RE%(1)=0:RE%(2)=3 CL 
9070 WF%(0)=16:WF%(1)=32:WF%(2)=64 EI 
9075 G%(0)=WF%(0)OR 7:G%(1)=WF%(1) OR 1: 
G%(2)=WF%(2) OR 1 LC 

9080 PW%(0,0)=200:PW%(0,1)=12 BP 

9081 PW%(1,0)=200:PW%(1,1)=12 HL 

9082 PW%(2,0)=200:PW%(2,1)=3 KF 
9105 DATA 24,128,192,256,384,512,640,768 
,896,1024 PM 
9300 X%=3:Y%=150 GF 
9310 X%=0 FM 
9320 Y%=14 JL 
9330 X%=1 FP 
9340 Y%=15:P0KE 54296, X% OR Y% EK 
9345 EV%=0 KC 

9499 REM PHRASE IP 

9500 MD$(0) = "0420093041[3"3"]5082" BP 

9501 ME$(0,0)="[c E]ECE[c E]E@[s CJDCDEC 
A@E@" IM 

9502 MV$(0,0)="4[12" "]3[3" "]" OL 

9509 REM PHRASE 1 10 

9510 MD$(1) = "0430280[5"3"]9[6"0"]31" AG 

9511 ME$(l,0)="FEC[s C]DD[c C]CACACBAGFE 
DCB@" EB 

9512 MV$(1,0)="4[7" "]34343[6" "]2 " JJ 
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I IWlDflRTAMTI Le,ters on white background are Bug Repellent line codes. Do not enter them! Pages B5 and 86 explain these codes 
I IVIl Un I nil I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



9519 REM PHRASE 2 JB 

9520 MD$(2) ■ "04202406420[3"3"]5082" GD 

9521 ME$(2,0)="[c E]EC[c E]EE[c E]EDC[s 
C]DECA[c E]E@" 

9522 MV$(2,0)="4[13" "]3[3 n "]" 

9529 REM PHRASE 3 

9530 MD$(3) = "[4"4 M ]360[4"5"]09[4"0"]2" FE 

9531 ME$(3,0)="EGEGAC[c E]EDCCBAF[s F]G[ 
s G]A" 

9532 MV$(3,0)= n 3[4" "]4[5" "]3 5[4" "]" 



IE 
DD 
JA 



DA 

CG 



VIC MUSIC 
1 REM "VIC MUSIC" CP 

10 MD$="@" : Ml $=MD$ : M2$=MD$ :M3$=MD$ : GOSUB 
9000 PE 

100 SYS SR EF 

190 END IC 

9000 SR=828 PN 

9005 POKE 170,50 :REM TEMPO EG 

9006 POKE 659,1 :REM ATTACK BI 

9007 POKE 660, 200: REM DECAY B0 

9008 POKE 661,15-0 :REM SUSTAIN VOLUME IN 

9009 POKE 662,10 :REM RELEASE MF 

9010 FOR 1=663 TO 676: READ A: POKE I,A:NE 
XT PC 

9011 DATA 166,169,169,5,133,171,198,171, 
208,252,202,208,245,96 EA 

9015 FOR 1=677 TO 682: READ A: POKE I,A:NE 
XT IG 

9016 DATA 202,234,234,208,251,96 NO 
9020 FOR 1=684 TO 767: READ A: POKE I,A:NE 
XT PC 
9025 DATA 32,151,2,136,208,250,96 FG 
9030 DATA 173,14,144,41,240,5,150,141,14 
,144,96 CJ 

9035 DATA 160,15,230,150,32,179,2,174,14 
7,2,32,165,2,136,208,242 PI 

9036 DATA 162,1 ,32,153,2 BJ 

9037 DATA 172,149,2,198,150,32,179,2,174 
,148,2,32,165,2,136,208,242 AF 

9038 DATA 166,170,134,169,164,149,32,172 

,2 JL 

9039 DATA 164,150,240,14,198,150,32,179, 
2,174,150,2,32,165,2,136,208,242,96 AP 
9045 FOR I=SR TO SR+89:READ A: POKE I,A:N 
EXT LD 

9050 DATA 169,0,133,150,133,147,160,2,17 
7,45,133,148 EA 

9051 DATA 200,177,45,133,155,200,177,45, 
133,156 DE 

9052 DATA 160,10,177,45,133,158,200,177, 
45,133,159 CN 

9053 DATA 160,17,177,45,133,163,200,177, 
45,133,164 MG 

•9054 DATA 160,24,177,45,133,167,200,177, 
45,133,168 GC 



•9055 DATA 164,147,177,155,133,149 BC 
•9056 DATA 177,158,141,10,144 OA 

•9057 DATA 177,163,141,11,144 LP 

•9058 DATA 177,167,141,12,144 FC 

•9059 DATA 32,190,2,169,0,133,150,230,147 

,198,148,208,222,96 DO 

•9100 SL=48:REM # OF NOTES LF 

•9110 FOR 1=1 TO SL:READ B:B=B+128:IF B>2 

55 THEN B=0 PB 

•9115 M3$=M3$+CHR$(B):NEXT MG 

•9120 FOR 1=1 TO SL:M1$=M1$+CHR$(0):NEXT JH 
•9125 FOR 1=1 TO SL:MD$=MD$+CHR$(25) :NEXT FE 
•9130 M2$=M1$ AE 

•9200 DATA 87,81,79,67,67,47,67,67,79,67, 

79,87 CD 

•9210 DATA 81,79,81,73,73,47,73,73,81,73, 

81,91 HH 

•9220 DATA 87,81,79,67,67,47,67,67,79,67, 

79,87 CD 

•9230 DATA 81,79,81,79,81,73,87,81,79,67, 

67,67 AC 

•9990 RETURN IM 



F L 


A S 


FROM PAGE 77 




This program reqi 


jires use of an assembler, 


See introdt 


jcfory < 


article for explanation. 


1 * 






2 * FLASH 






3 * 






4 


ORG 


$8000 


5 EOL 


EQU 


13 


6 BUFLEN 


EQU 


40 


7 FILLCH 


EQU 


$20 


8 CHROUT 


EQU 


$FFD2 


9 CLRSCR 


EQU 


147 


10 * 






11 


JMP 


START 


12 * 






13 TEXT 


ASC 


'FLASH: C64 OWNER B 


REAKS MACHINE CODE! ' 


14 


DFB 


13 


15 * 






16 * CLEAR 


SCREEN 


17 * 






18 START 


JSR 


CLEAR 


19 * 






20 * CLEAR 


TEXT 


BUFFER 


21 * 






22 


LDA 


#FILLCH 


23 


LDX 


#BUFLEN 


24 STUFF 


DEX 




25 


STA 


TXTBUF.X 


26 


BNE 


STUFF 


27 * 







H 
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28 * STORE MESSAGE IN BUFF 


29 * 






30 


LDX 


#0 


31 L00P1 


LDA 


TEXT.X 


32 


STA 


TXTBUF, X 


33 


CMP 


#EOL 


34 


BEQ 


PRINT 


35 


INX 




36 


CPX 


fBUFLEN 


37 


BCC 


L00P1 


38 * 






39 * PRINT 


MESSAGE 


40 * 






41 PRINT 


LDX 


#0 


42 L00P2 


LDA 


TXTBUF, X 


43 


PHA 




44 


JSR 


CHROUT 


45 


PLA 




46 


CMP 


#EOL 


47 


BNE 


NEXT 


48 


JMP 


AGAIN 


49 NEXT 


INX 




50 


CPX 


#BUFLEN 


51 


BCC 


LO0P2 


52 * 






53 AGAIN 


JSR 


DELAY 


54 


JSR 


CLEAR 


55 


JSR 


DELAY 


56 


JMP 


PRINT 


57 * 






58 * ROUTINE TO 


CLEAR SCRE 


59 * 






60 CLEAR 


LDA 


#CLRSCR 


61 


JSR 


CHROUT 


62 


RTS 




63 * 






64 * DELAY 


LOOP 




65 * 






66 DELAY 


LDX 


#$FF 


67 XLOOP 


LDY 


#$FF 


68 YLOOP 


DEY 




69 


NOP 




70 


NOP 




71 


NOP 




72 


BNE 


YLOOP 


73 


DEX 




74 


BNE 


XLOOP 


75 


RTS 




76 * 






77 TXTBUF 


DS 


BUFLEN 


78 * 







t 



FROM PAGE 73 

•1 REM BEFORE LOADING P0KE44,64:P0KE256*6 
4,0:NEW FM 

•2 SO = PEEK(46)*256+PEEK(45) BF 



25 IF M$="D" 

26 IF M$="E" 

27 IF M$="I" 

28 IF MS="L" 



3 SI = S0-210:S2 = SO-150 

9 PRINT" [CLEAR] ""IN ADDITION TO NORMAL C 
URSOR MOVEMENTS," 

10 PRINT"THE FOLLOWING CODES ARE USED: F 
-FAST" 

11 PRINT"SCAN; S-SLOW SCAN; D-DRAW; E-ER 
ASE" 

12 PRINT"I-INITIAL POINT OF SLANTED LINE 

13 PRINT"L-LINE BACK TO INITIAL POINT; F 
1-" 

14 PRINT"DUMP SCREEN IMAGE TO PRINTER" 

15 PRINT"F7-CLEAR SCREEN" 

16 INPUT "DO YOU WANT TO PLAY SQUARES"; A 
N$ 

17 SYS SI 

18 X=0:Y=0:SV=0:BY=8192:F=1:D=0:E=0:GOSU 
B 1000 

19 IF AN$="Y" THEN GOSUB 200 

20 GET M$:IFM$="" THEN 20 

21 IF M$=CHR$(136) THEN 17 

22 IF M$="F" THEN F=5:G0T0 20 
24 IF MS="S" THEN F=1:G0T0 20 

THEN D=NOT D:E=0:G0T0 20 
THEN E=NOT E:D=0:GOT020 
THEN XI=X:YI=Y:GOTO 20 
THEN 100 

29 IF M$=CHR$(133) THEN 1100 

30 IF M$="[UP]" THEN Y=Y-F:IF Y<0 THEN Y 
=0 

35 IF M$="[DOWN]" THEN Y=Y+F:IF Y>199 TH 
EN Y=199 

40 IF M$="[RIGHT]" THEN X=X+F:IF X>319 T 
HEN X=319 

45 IF M$="[LEFT]" THEN X=X-F:IF X<0 THEN 
X=0 
50 GOSUB 1000: GOTO 20 
100 DX=X-XI : DY=Y-YI 
110 M=DY/DX : B=YI-M*XI 
115 SP = (SGN(XI-X))*F : XF=X 
120 FOR X=XF TO XI STEP SP 
130 Y = INT(M*X+B) 
140 GOSUB 1000 
150 NEXT 
160 D=0:GOT0 20 

200 D=1:F0R Y = TO 199 STEP 21 
210 FOR X = TO 249 STEP 25 
220 GOSUB 1000 
230 NEXTX : NEXTY 
240 X = 128 : Y = 95 : GOSUB 1000 
250 D=0 : RETURN 

1000 CH=INT(X/8) :R0=INT(Y/8) :LN=YAND7 
1010 IF D=0 THEN POKE BY,SV 
1015 IF E=0 THEN 1020 
1017 Z = SV AND (2[UPARR0W]BT):POKE BY,S 

v-z 

1020 BY=8192+R0*320+CH*8+LN : BT=7-(XAND7) 
1030 SV = PEEK (BY) 



CF 
PC 
HF 

PE 
HL 

NJ 

LK 
DH 

KH 
CF 

BH 
HJ 
FJ 
KH 
AE 
HP 
HD 
BM 
AJ 
HI 
PN 

LE 

NO 

DC 

KG 
HH 
EM 
AM 
FA 
LD 
FG 
FO 
IA 
EG 
HN 
DH 
FO 
PL 
BP 
PA 
FK 
FO 
CO 

EE 

KH 
BC 
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To enter The Wizard of lm... 



you must use our Flankspeed machine language entry program. See the 
introduction to Flankspeed on page 86 of this issue, 



•1040 POKE BY.SV 0R(2[UPARR0W]BT) 


LK 


C088: 


CO 


A9 


A6 


8D 


00 


DO 


A9 


FD 


9F 


•1050 RETURN 








IM 


C090: 


8D 


F8 


07 


A 9 


00 


8D 


20 


C7 


3D 


•1100 OPEN 4,4, 


5 : CMD4 




KJ 


C098: 


8D 


21 


C7 


8D 


FF 


C6 


8D 


10 


01 


•1110 PRINT CHR$(27)CHR$(51)CHR$(16) 


EC 


COAO; 


DO 


8D 


26 


C7 


AD 


IF 


DO 


A9 


34 


•1120 poke : 


>51, 


O-.POKE 


252,32 


KO 


C0A8: 


01 


8D 


25 


C7 


A9 


03 


8D 


24 


82 


•1130 FOR 1= 


=0 TO 7: 


POKE 2048+1, 2 [UPARROW] 




COBO: 


C7 


8D 


IE 


C7 


8D 


ID 


C7 


A9 


08 


I: NEXT 










FP 


C0B8: 


05 


8D 


IC 


C7 


A9 


30 


8D 


2B 


CI 


•1140 FOR L= 


=0 TO 21 


>:PRD 




COCO : 


C7 


A9 


06 


8D 


2D 


C7 


8D 


2C 


74 


)CHR$(250)CHR$(2) 






IA 


C0C8: 


C7 


A9 


02 


8D 


2E 


C7 


A9 


20 


89 


•1150 SYS S2 








CE 


CODO: 


8D 


28 


C7 


20 


B2 


C4 


20 


E4 


EA 


•1160 PRINT CHR$(245)CHR$(10); 


PC 


C0D8: 


FF 


C9 


8C 


FO 


45 


C9 


88 


FO 


A8 


•1170 NEXT I 










MO 


COEO: 


6F 


AD 


8D 


02 


C9 


01 


FO 


EE 


38 


•1180 PRINT#4,CHR$(27) 


"@":PRINT#4,:CL0SE4 


GL 


C0E8: 


AD 


IF 


DO 


29 


01 


DO 


64 


CE 


B4 


•1190 END 










IC 


COFO: 


29 


C7 


FO 


4F 


CE 


2A 


C7 


FO 


D3 














C0F8: 


54 


AD 


00 


DC 


49 


FF 


8D 


FD 


AC 


Machine code to be appended to ETCH 




CI 00: 


C6 


29 


10 


C9 


10 


FO 


36 


CE 


CF 




(see article for instructions) 




C108: 


27 


C7 


DO 


CA 


AD 


28 


C7 


8D 


BD 


169 24 141 


24 


208 


16S 


1 32 13 17 208 141 17 


CI 10: 


27 


C7 


AD 


FD 


C6 


29 


OF 


C9 


73 


208 169 32 


133 252 160 132 251 169 145 


CI 18: 


04 


FO 


67 


C9 


08 


FO 


37 


4C 


BA 


251 200 208 251 166 252 232 134 252 224 


64 


CI 20: 


D6 


CO 


A9 


06 


8D 


21 


DO 


A9 


90 


208 242 169 4 


133 


252 


. 132 251 169 1 145 




C128: 


OE 


8D 


20 


DO 


8D 


86 


02 


A9 


74 


251 200 208 251 166 252 232 134 252 224 


8 


CI 30: 


00 


8D 


15 


DO 


8D 


18 


D4 


20 


3E 


208 242 96 


162 


169 


32 210 255 232 224 


C138: 


44 


E5 


20 


74 


A4 


4C 


BO 


CI 


5A 


120 208 246 169 245 32 210 255 169 141 


8 


CI 40: 


4C 


82 


CI 


AD 


15 


DO 


29 


02 


8F 


8 141 9 8 


141 


10 


3 141 11 8 169 7 56 237 


9 


C148: 


FO 


AA 


4C 


Dl 


CI 


4C 


OE 


C2 


EO 


8 170 189 


8 


141 


12 


8 169 7 56 237 10 8 




CI 50: 


4C 


13 


CO 


4C 


C9 


C4 


A9 


FD 


F2 


170 189 


8 141 13 8 


172 10 8 177 251 45 




C158: 


8D 


F8 


07 


EE 


00 


DO 


FO 


OA 


AO 


12 8 240 10 173 13 8 


24 109 11 8 141 11 


8 


C160: 


AD 


00 


DO 


C9 


45 


FO 


OE 


4C 


39 


174 10 8 232 ] 


L42 


10 £ 


! 224 8 208 212 173 


11 


C168: 


D6 


CO 


AD 


10 


DO 


09 


01 


8D 


26 


8 32 210 255 32 210 255 169 141 10 8 141 


CI 70: 


10 


DO 


4C 


D6 


CO 


AD 


10 


DO 


C3 


11 8 174 9 


8 232 


142 


9 8 224 8 208 171 169 


C178: 


29 


01 


FO 


03 


CE 


00 


DO 


4C 


82 


141 9 8 


169 


8 24 101 251 133 251 144 5 




C180: 


D6 


CO 


A9 


FE 


8D 


F8 


07 


CE 


ID 


166 252 232 134 252 174 8 8 232 142 8 8 




C188: 


00 


DO 


AD 


00 


DO 


C9 


FF 


FO 


92 


224 40 208 


14] 


L 96 








CI 90: 


07 


C9 


18 


FO 


OE 


4C 


D6 


CO 


5C 














C198: 


AD 


10 


DO 


29 


02 


8D 


10 


DO 


CO 


THE WIZARD OF IM 




C1A0: 
C1A8: 


4C 
DO 


D6 

03 


CO 
EE 


AD 

00 


10 
DO 


DO 

4C 


29 

D6 


01 
CO 


3D 
20 


FROM PAGE 47 










CI BO: 


AD 


15 


DO 


C9 


03 


FO 


17 


A9 


C2 


First Byfe: C000 


Last 


Byfe 


C71F Sys to Start: 49152 


C1B8: 


03 


8D 


15 


DO 


AD 


00 


DO 


29 


D6 


C000: A9 


OF 


8D 


18 


D4 20 DF C2 F5 




C1C0: 


F8 


8D 


02 


DO 


AD 


10 


DO 


OA 


B2 


COO 8: 20 


27 


C3 


A9 


00 8D 22 C7 34 




C1C8: 


6D 


10 


DO 


8D 


10 


DO 


4C 


07 


D8 


COlO: 8D 


23 


C7 


20 


44 E5 A9 00 7C 




C1D0: 


CI 


A9 


12 


8D 


29 


C7 


CE 


03 


9E 


C018: AO 


17 


99 


00 


D4 88 DO FA 92 




C1D8: 


DO 


AD 


03 


DO 


C9 


28 


BO 


15 


E2 


C020: AO 


26 


A9 


OA 


8D FE C6 A9 97 




C1E0: 


A9 


01 


8D 


15 


DO 


A9 


BE 


8D 


F4 


C028: 00 


85 


FC 


A9 


D8 85 FD A2 53 




C1E8: 


03 


DO 


AD 


10 


DO 


29 


01 


8D 


03 


C030: 16 


AD 


FE 


C6 


91 FC 18 A5 06 




C1F0: 


10 


DO 


4C 


D6 


CO 


20 


9C 


C3 


36 


C038: FC 


69 


28 


85 


FC A5 FD 69 56 




C1F8: 


4C 


F4 


CO 


20 


97 


EO 


A5 


8E 


C7 


C040: 00 


85 


FD 


CA 


DO EB CE FE 19 




C200: 


29 


OF 


8D 


FE 


C6 


A5 


8D 


29 


E7 


C048: C6 


AD 


FE 


C6 


C9 01 FO OC 4A 




C208: 


03 


6D 


FE 


C6 


OA 


60 


AE 


FF 


57 


C050: 88 


88 


DO 


D3 


8C 00 D8 84 EF 




C210: 


C6 


FO 


22 


AD 


2B 


C7 


8D 


2A 


42 


C058: FE 


4C 


64 


CO 


A9 OA 8D FE 09 




C218: 


C7 


A5 


FE 


85 


FC 


38 


E9 


28 


51 


C060: C6 


4C 


50 


CO 


A2 78 A9 OB 54 




C220: 


85 


FE 


A5 


FF 


85 


FD 


E9 


00 


B7 


C068: 9D 


6F 


DB 


A9 


AO 9D 6F 07 AF 




C228: 


85 


FF 


AO 


26 


20 


8F 


C3 


CE 


B6 


C070: CA 


DO 


F3 


18 


A2 16 AO OE 7F 




C230: 


FF 


C6 


4C 


F9 


CO 


CE 


2C 


C7 


CO 


C078: 20 


FO 


FF 


AO 


00 B9 66 C6 11 




C238: 


DO 


OF 


AD 


2D 


C7 


8D 


2C 


C7 


3C 


C080: FO 


07 


20 


D2 


FF C8 4C 7D FD 




C240: 


20 


FB 


CI 


A8 


A9 


51 


99 


00 


5B 


98 AHOY! 

































C248 


: 04 


A9 


48 


85 


FE 


A9 


07 


85 


F8 


C418 


: 21 


C7 


69 


00 


8D 


21 


C7 


20 


01 


C250 


: FF 


AO 


26 


Bl 


FE 


C9 


20 


FO 


A2 


C420 


: 6F 


C4 


20 


26 


C4 


60 


AD 


21 


8E 


C258 


: IE 


A9 


20 


91 


FE 


AD 


21 


C7 


67 


C428 


C7 


CD 


ID 


C7 


DO 


40 


AC 


25 


85 


C260 


■ F0 


1.5 


38 


AD 


20 


C7 


ED 


26 


48 


C430 


• C7 


B9 


03 


C7 


8D 


1C 


C7 


18 


06 


C268 


C7 


8D 


20 


C7 


AD 


21 


C7 


E9 


26 


C438 


AD 


ID 


C7 


6D 


IE 


C7 


8D 


ID 


C8 


C270 


00 


8D 


21 


C7 


4C 


7B 


C2 


88 


F9 


C440 


C7 


EE 


IE 


C7 


EE 


26 


C7 


EE 


A8 


C278 


: 88 


DO 


D8 


A2 


15 


8E 


FF 


C6 


B7 


C448 


25 


C7 


20 


9C 


C4 


CE 


2B 


C7 


78 


C280 


4C 


F9 


CO 


38 


AD 


03 


DO 


E9 


2B 


C450 


CE 


2B 


C7 


BO 


05 


A9 


01 


8D 


FF 


C288 


. 32 


4A 


4A 


4A 


8D 


30 


C7 


OA 


29 


C458 


2B 


C7 


CE 


2E 


C7 


DO 


OF 


CE 


BE 


C290 


OA 


6D 


30 


C7 


A2 


00 


8E 


30 


61 


C460 


2D 


C7 


DO 


05 


A9 


01 


8D 


2D 


90 


C298 


C7 


OA 


OA 


2E 


30 


C7 


OA 


2E 


D2 


C468 


C7 


A9 


04 


8D 


2E 


C7 


60 


A2 


64 


C2A0 


30 


C7 


85 


59 


AD 


30 


C7 


69 


86 


C470 


18 


AO 


04 


18 


20 


FO 


FF 


A9 


FF 


C2A8 


04 


85 


5A 


AD 


10 


DO 


4A 


8D 


F2 


C478 


OE 


8D 


86 


02 


AD 


21 


C7 


AE 


El 


C2B0 


32 


C7 


38 


AD 


02 


DO 


E9 


14 


61 


C480 


20 


C7 


20 


CD 


BD 


60 


A2 


18 


2F 


C2B8 


8D 


31 


C7 


AD 


32 


C7 


E9 


00 


DO 


C488 


AO 


OF 


18 


20 


FO 


FF 


A9 


07 


12 


C2C0 


4A 


6E 


31 


C7 


AD 


31 


C7 


4A 


63 


C490 


8D 


86 


02 


AD 


24 


C7 


69 


30 


D9 


C2C8 


4A 


65 


59 


85 


59 


A5 


5A 


69 


1A 


C498 


20 


D2 


FF 


60 


A2 


18 


AO 


18 


5F 


C2D0 


00 


85 


5A 


60 


A9 


FF 


8D 


00 


48 


C4A0 


18 


20 


FO 


FF 


A9 


05 


8D 


86 


8C 


C2D8 


C7 


CE 


00 


C7 


DO 


FB 


60 


AO 


05 


C4A8 


02 


A9 


00 


AE 


25 


C7 


20 


CD 


DD 


C2E0 


FF 


C8 


B9 


66 


C5 


99 


00 


3F 


68 


C4B0 


BD 


60 


A2 


18 


AO 


IF 


18 


20 


81 


C2E8 


CO 


FF 


DO 


F5 


A9 


A6 


8D 


00 


4E 


C4B8 


FO 


FF 


A9 


08 


8D 


86 


02 


AD 


IF 


C2F0- 


DO 


A9 


CD 


8D 


01 


DO 


A9 


03 


45 


C4C0 


23 


C7 


AE 


22 


C7 


20 


CD 


BD 


EF 


C2F8. 


8D 


1C 


DO 


A9 


06 


8D 


27 


DO 


A8 


C4C8 


60 


20 


OE 


C5 


AD 


F8 


07 


8D 


58 


C300 


A9 


08 


8D 


25 


DO 


A9 


01 


8D 


6D 


C4D0 


IF 


C7 


A9 


01 


8D 


15 


DO 


20 


F5 


C3 08 


15 


DO 


8D 


26 


DO 


A9 


FD 


8D 


A7 


C4D8 


4C 


C5 


A9 


32 


8D 


2F 


C7 


A9 


F4 


C310 


F8 


07 


A9 


FF 


8D 


F9 


07 


A9 


Fl 


C4E0 


FC 


8D 


F8 


07 


20 


D4 


C2 


20 


43 


C318, 


64 


8D 


02 


DO 


A9 


CO 


8D 


03 


D7 


C4E8 


D4 


C2 


AD 


IF 


C7 


8D 


F8 


07 


A2 


C320- 


DO 


A9 


07 


8D 


28 


DO 


60 


20 


A8 


C4F0 


20 


D4 


C2 


CE 


2F 


C7 


DO 


E7 


27 


C328- 


44 


E5 


A9 


17 


8D 


18 


DO 


A9 


33 


C4F8: 


A9 


80 


8D 


04 


D4 


CE 


24 


C7 


44 


C330: 


00 


8D 


20 


DO 


8D 


21 


DO 


A2 


DO 


C500: 


20 


86 


C4 


AD 


IF 


DO 


AE 


24 


DB 


C338- 


06 


AO 


OB 


18 


20 


FO 


FF 


AO 


B3 


C508: 


C7 


FO 


OE 


4C 


D6 


CO 


A9 


20 


7C 


C340: 


00 


B9 


C9 


C6 


FO 


07 


20 


D2 


75 


C510: 


AO 


78 


99 


F7 


06 


88 


DO 


FA 


15 


C348; 


FF 


C8 


4C 


41 


C3 


A2 


08 


AO 


AD 


C518: 


60 


20 


6F 


C4 


AD 


21 


C7 


CD 


31 


C350: 


oc 


18 


20 


FO 


FF 


AO 


00 


B9 


DF 


C520: 


23 


C7 


90 


19 


DO 


08 


AD 


20 


5B 


C358: 


DB 


C6 


FO 


07 


20 


D2 


FF 


C8 


AE 


C528- 


C7 


CD 


22 


C7 


90 


OF 


AD 


20 


15 


C360: 


4C 


57 


C3 


A2 


OA 


AO 


OA 


18 


37 


C530- 


C7 


8D 


22 


C7 


AD 


21 


C7 


8D 


93 


C368: 


20 


FO 


FF 


AO 


00 


B9 


EA 


C6 


85 


C538 


23 


C7 


20 


B2 


C4 


20 


E4 


FF 


BF 


C370: 


FO 


07 


20 


D2 


FF 


C8 


4C 


6D 


DD 


C540: 


FO 


FB 


C9 


8C 


FO 


03 


4C 


13 


D6 


C378: 


C3 


A2 


05 


AO 


FF 


20 


D4 


C2 


3C 


C548: 


CO 


4C 


22 


CI 


A9 


5F 


8D 


00 


CF 


C380- 


88 


DO 


FA 


CA 


DO 


F5 


20 


44 


CA 


C550: 


D4 


A9 


07 


8D 


01 


D4 


A9 


81 


64 


C388: 


E5 


A9 


15 


8D 


18 


DO 


60 


Bl 


B5 


C558: 


8D 


04 


D4 


A9 


3F 


8D 


05 


D4 


OF 


C390- 


FE 


91 


FC 


A9 


20 


91 


FE 


88 


01 


C560: 


A9 


08 


8D 


06 


D4 


60 


00 


30 


OB 


C398: 


88 


DO 


F4 


60 


20 


83 


C2 


A2 


50 


C568: 


00 


00 


00 


00 


OC 


10 


CO 


00 


45 


C3A0- 


00 


Al 


59 


C9 


20 


FO 


07 


A9 


27 


C570: 


00 


00 


C2 


22 


OC 


00 


10 


00 


71 


C3A8. 


20 


81 


59 


4C 


BA 


C3 


AO 


01 


10 


C578: 


04 


20 


40 


82 


AA 


08 


00 


B8 


CA 


C3B0 


Bl 


59 


C9 


20 


FO 


3C 


A9 


20 


9C 


C580: 


00 


2A 


FE 


A3 


00 


B8 


00 


82 


88 


C3B8- 


91 


59 


A9 


FC 


8D 


F9 


07 


A9 


82 


C588 


AA 


08 


04 


20 


40 


00 


10 


00 


AF 


C3C0- 


20 


81 


59 


20 


F3 


C3 


A9 


05 


42 


C590: 


C2 


22 


OC 


00 


00 


00 


OC 


20 


AD 


C3C8 


8D 


2F 


C7 


20 


D4 


C2 


CE 


2F 


03 


C598' 


CO 


00 


00 


00 


00 


10 


00 


00 


69 


C3D0 


C7 


DO 


F8 


A9 


80 


8D 


04 


D4 


F2 


C5A0: 


00 


00 


00 


30 


00 


00 


AO 


OC 


7D 


C3D8 


A9 


01 


8D 


15 


DO 


AD 


10 


DO 


85 


C5A8 


00 


2A 


OF 


00 


2A 


83 


CO 


OA 


5A 


C3E0 


29 


01 


8D 


10 


DO 


A9 


FF 


8D 


BO 


C5B0- 


90 


DO 


OA 


94 


54 


02 


DO 


14 


EB 


C3E8 


F9 


07 


A9 


CO 


8D 


03 


DO 


20 


D5 


C5B8 


02 


FC 


04 


02 


80 


04 


OA 


AA 


F6 


C3F0 


OD 


C4 


60 


A9 


3C 


8D 


00 


D4 


6B 


C5C0- 


94 


2A 


AA 


94 


2A 


AA 


80 


2A 


3E 


C3F8 


A9 


C8 


8D 


01 


D4 


A9 


81 


8D 


87 


C5C8 


A2 


80 


2A 


AO 


80 


16 


AO 


80 


6E 


C400 


04 


D4 


A9 


8E 


8D 


05 


D4 


A9 


22 


C5D0 


1A 


AO 


00 


OA 


AO 


00 


OA 


AO 


EO 


C408 


D5 


8D 


06 


D4 


60 


18 


AD 


20 


8C 


C5D8 


00 


OA 


AO 


00 


OA 


AO 


00 


OA 


38 


C410 


C7 


6D 


1C 


C7 


8D 


20 


C7 


AD 


4C 


C5E0 


AO 


00 


2A 


A8 


00 


10 


00 


30 


94 




































AHOY! 99 



IMPORTANT I Le,lers on wni,e background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 



and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



C5E8 
C5F0 
C5F8 
C600 
C608 
C610 
C618 
C620 
C628 
C630 
C638 
C640 
C648 
C650 
C658 
C660 
C668 
C670 
C678 
C680 
C688 
C690 
C698 
C6A0 
C6A8 
C6B0 
C6B8 
C6C0 
C6C8 
C6D0 
C6D8 
C6E0 
C6E8 
C6F0 
C6F8 
C700 
C708 
C710 

C718 



2 A 00 F0 
05 A0 15 
10 3F 80 
A0 16 AA 
8A A8 02 
00 OA A A 
AO 00 OA 
OA AO 00 

00 00 55 
7E 40 01 

01 6E 40 
00 00 AE 
18 00 00 
00 38 00 
00 00 1C 
00 00 00 
57 49 5A 

46 20 49 
20 20 9F 
20 20 20 
53 20 20 
45 4C 20 

47 48 20 
ID ID 30 
20 20 20 
20 2 98 
20 20 31 
20 20 81 
00 9E D4 
DA CI D2 
C9 CD 00 
4F 42 20 
4F 00 C3 
47 48 54 
31 39 38 
00 00 00 
30 4C 79 
CI 2D 48 
64 78 C8 



A8 03 CI 
17 AO 14 
10 OA 80 
A8 02 AA 
OA A8 02 
00 OA AO 
AO 00 OA 
2A A8 10 

00 01 69 
BE 40 01 

01 BE 00 
00 00 24 
2C 00 00 
00 1C 00 
00 00 30 
OC 00 00 
41 52 44 
4D OD 12 
53 43 4F 
20 4C 49 
20 20 4C 
20 20 20 
OD 9 A 12 
20 20 20 
20 9E 20 
20 20 20 
20 20 98 
20 20 20 
C8 C5 20 
C4 20 CF 
4 2 59 20 
D3 50 49 
4F 50 59 
20 28 C3 
35 00 00 
00 08 OC 
CI IE 30 
73 B8 50 
32 00 00 



A8 OF 29 
07 80 FE 
16 AA 24 
A8 02 61 
OA 94 90 
00 OA 73 
AO 00 OE 
00 14 CI 
40 01 29 
BD 40 ED 
00 99 41 
00 00 13 
24 00 BO 
00 18 BC 
00 00 A 4 

12 97 16 
20 4F AA 
20 20 CC 
52 45 D5 
56 45 32 
45 56 44 
48 49 34 
ID ID 3C 
20 98 24 
20 33 3B 
20 IE 28 
20 20 43 
20 20 2 3 
D7 C9 8C 
C6 20 DB 
20 C2 OF 
52 4B 9D 
52 49 90 
29 20 2A 
00 00 DO 

13 IE 45 
4C 79 D3 
69 99 C6 
00 00 EF 



Auto-Append 

FROM PAGE 62 ■ ■ 

Bug Repellent line codes listed to right of program lines are for C-64 
only! VIC 20 Bug Repellent line codes ore listed at end of program. 

•1 REM****************** 



AUTO-APPEND 



BY 



* 
* 
* 
* 



LO 
00 
PN 
00 
IA 
GJ 
MK 

•8 REM****************** LO 

•10 P0KE55,225:PQKE56,PEEK(56)-1:A=PEEK(5 
6)*256+226:FORX=OT027:READD:POKEA+X,D:NE 
XT PG 

100 AHOY! 



•2 REM* 
•3 REM* 
-4 REM* 
•5 REM* 
•6 REM* 
•7 REM* 



WILLIAM BRAUN * 
1984 * 



•15 PRINT" [CLEAR] [BLACK] [DOWN] [5" "]INSTR 
UCTI0NS[ BLUE] [DOWN] [DOWN] 11 : PRINT" 1. LOA 
D 1ST PROGRAM": PRINT" [DOWN] 2. SYS"A CA 

•20 PRINT" [DOWN] 3. LOAD 2ND PROGRAM" :PRI 
NT" [DOWN] 4. SYS"A+19:PRINT"[D0WN] 5. SA 
VE AND VERIFY AJ 

•25 DATA165, 43, 133, 251, 165, 44, 133, 252, 166 
,45,202,202,134,43,165,46,133,44,96 CM 

•30 DATA165, 251, 133,43,165,252,133,44,96 KI 

VIC 20 BUG REPELLENT LINE CODES 



#1 
#2 
#3 



LO #4 
00 #5 
CC #6 



00 #7 
JO #8 
HI #10 



MK #15 :LE #30 :KI 
LO #20 :BI 
PG #25 :CM 



AUTOS: LEASING V. BUYING 

FROM PAGE 75 
10 PRINTCHR$(147),CHR$(144):P0KE53281,14 NA 
20 PRINTTAB(9)"AUT0: LEASING VS BUYING" OA 
25 PRINTTAB(9):FQR J=1T023:PRINT CHR$(18 
3);: NEXT: PRINT: PRINT MM 

30 PRINTTAB(13)"C0ST OF BUYING": PRINT: PR 
INT NH 

35 PRINTTAB( 3) "PLEASE ENTER DATA AS REQU 
ESTED": PRINT: PRINT JP 

40 INPUT" ENTER THE PURCHASE PRICE $ ";P 
P: PRINT ND 

50 INPUT" WILL YOU NEED FINANCING? Y/N"; 
F$: PRINT: IF F$="N" THEN 190 ON 

60 PRINT" DOWNPAYMENT INCLUDING TRADE-IN 

OL 
70 INPUT " ALLOWANCE $ "; DP: PRINT :LA=P 
P-DP HK 

80 PRINT" [3" "]Y0U WILL NEED TO BORROW $ 
"; LA: PRINT HG 

90 PRINT" WILL YOU NEED TO BORROW MORE T 
0" DE 

95 PRINT" COVER SALES TAX, LICENSE, ETC 
.?" JC 

100 INPUT" [4" "] Y/N" ;H$: PRINT LG 

105 IF H$="N" THEN LA=PP-DP: GOTO 140 EC 
110 PRINT" [3" "] ENTER ADDITIONAL AMOUNT 
BORROWED" IE 

120 INPUT "$ ";AB: LA=LA+AB : PRINT MN 
140 PRINT" ANNUAL PERCENTAGE INTEREST RA 
TE?" BG 

150 INPUT "[5" "]% ";R : PRINT CO 

160 IF R>1 THEN R=R/100 BD 

170 PRINT" LENGTH OF LOAN IN MONTHS." LD 
180 INPUT "[5" "]M0NTHS";M: PRINT NK 
185 IF M>60 THEN PRINT"S0RRY,60 MONTH LI 
MIT, PLEASE RE-ENTER": PRINT: GOTO 170 GP 
190 INPUT" SALES TAX RATE % ";SX: PRINT BB 
200 IF SX>1 THEN SX=SX/100 CA 

210 INPUT" ANNUAL LICENSE FEE $ ";LC:PRI 



NT MD 

•220 PRINT" WHAT TYPE OF CAR ARE YOU BUYI 
NG?": PRINT FO 

230 PRINT" [3" "]1. STANDARD" FF 

240 PRINT" [3" "]2. COMPACT" MN 

250 PRINT" [3" "]3. SUBCOMPACT?": PRINT PJ 
260 INPUT"PLEASE ENTER NUMBER" ;N:PRINT KO 
270 PRINT" DO YOU ITEMIZE YOUR DEDUCTION 
S FOR" PO 

280 INPUT" INCOME TAX PURPOSES? Y/N";Y$ 
: PRINT LN 

290 IF Y$="N" THEN 320 IJ 

300 PRINT" ENTER YOUR TAX BRACKET RATE" HF 
310 INPUT"%";TXt PRINT KM 

320 IF TX>1 THEN TX=TX/100 AN 

370 PRINTCHR$(147) FG 

380 PRINTTAB(12)"C0ST OF LEASING" DB 
390 PRINTTAB(12):F0RK=1T015:PRINTCHR$(18 
3);: NEXT: PRINT: PRINT NO 

400 PRINTTAB(3)"PLEASE ENTER DATA AS REQ 
UESTED": PRINT: PRINT JP 

410 PRINT" ENTER SECURITY DEPOSIT REQUIR 
ED" GF 

415 INPUT" [5" "]$";SD: PRINT BN 

420 PRINT" ENTER MONTHLY LEASE PAYMENT" HD 
425 INPUT" [5" "]$"; ML: PRINT ED 

430 PRINT" FOR HOW MANY MONTHS?" DG 
435 INPUT" [5" "]M0NTHS";NP: PRINT: IF F$=" 
N" THEN M=NP CH 

440 PRINT" DOWNPAYMENT OR ADDITIONAL PAY 
MENT" ON 

450 INPUT" [5" "]$";AP: PRINT BL 

460 INPUT" ANNUAL LICENSE FEE $";LF:PRIN 
T JH 

470 GOSUB 1000 FO 

480 GOSUB 1300 FB 

510 GOSUB 1500: PRINT: PRINT CH 

520 INPUT"PRESS 'C TO CONTINUE" ;C$ GP 
530 GOSUB 1800: PRINT: PRINT PO 

540 INPUT"PRESS 'C TO CONTINUE" ;C$ GP 
550 PRINTCHR$( 147): POKE 53280,2 IN 
560 PRINTTAB( 5) "COMPARISON: LEASING VS. 
BUYING" DL 

570 PRINTTAB( 5) : F0RK=1T030 : PRINTCHR$( 183 
);:NEXT: PRINT: PRINT ND 

590 MP=INT(MP*100+.5)/100:X$=STR$(MP) :G0 
SUB 3000 GC 

600 PRINT"YOUR MONTHLY LOAN PAYMENTS WOU 
LD BE:": PRINT HK 

610 PRINTTAB(10)"$";X$:PRINT LC 

620 PRINT"YOUR MONTHLY LEASE PAYMENT WOU 
LD BE:": PRINT AD 

630 PRINTrAB( 10)"$"; ML: PRINT: PRINT ID 
640 X$=STR$(TT): GOSUB 3000 IJ 

650 PRINT"THE NET COST OF BUYING IS $"; 
SPC(SP)X$: PRINT AF 

660 X$=STR$(LT): GOSUB 3000 IB 

670 PRINT"THE NET COST OF LEASING IS $"; 



SPC(SP)X$ NN 

675 PRINTTAB(28);:F0R K=1T09:PRINTCHR$(1 
83);:NEXT:PRINT:PRINT AD 

680 DF=LT-TT:X$=STR$(DF): GOSUB 3000 FD 
690 IF DF>0 THEN PRINT" [5" "] BUYING IS C 
HEAPER BY $";SPC(SP)X$ OB 

700 IF DF<0 THEN PRINT" [5" "]LEASING IS 
CHEAPER BY $";SPC(SP)VAL(X$)*-1 PG 
900 END IC 

1000 REM COST OF BUYING CALCULATIONS JN 
1010 YR=M/12:MR=R/12:T=INT(YR) :TT=0:TD= 
GG 

1015 XL=(PP*(1+.055)[UPARR0W]YR)-PP BF 
1020 LI=(DP*(1+.055)[UPARROW]YR)-DP HA 
1025 IF LA=0 THEN 1070 HP 

1030 F=(MR*(1+MR) [UP ARROW ]M)/((1+MR)[UPA 
RR0W]M-1) NB 

1040 MP=F*LA NH 

1050 IX=(MP*M)-LA JF 

1060 IS=IX*TX EI 

1070 SS=(SX*PP)*TX AC 

1075 IF T>5 THEN PRINT"S0RRY, 60 MONTH L 
IMIT":END KJ 

1080 IF N=l THEN GOSUB 2000 MI 

1090 IF N=2 THEN GOSUB 2100 LK 

1100 IF N=3 THEN GOSUB 2200 LM 

1110 LC=LC*YR DC 

1120 RETURN IM 

1300 REM COMPUTE COST OF LEASING LP 
1310 TL=ML*NP DA 

1320 T1=INT(NP/12) AC 

1330 IL=(SD*(1+.055)[UPARR0W]T1)-SD BM 
1340 IA=(AP*(1+.055)[UPARR0W]T1)-AP DH 
1350 LF=LF*T1 PK 

1360 RETURN IM 

1500 REM DISPLAY BUYING RESULTS JF 
1505 PRINTCHR$(147) FG 

1510 PRINTTAB(13)"C0ST OF BUYING" BD 
1515 PRINTTAB(13);:F0R K=LT014:PRINTCHR$ 
( 1 83 ) ; : NEXT : PRI NT : PRINT HM 

1520 IF F$="N" THEN 2500 LE 

1525 DP=INT(DP):X$=STR$(DP):GOSUB 3000:T 
T=TT+DP LO 

1530 PRINT"DOWNPAYMENT[ 18" ."]$"; SPC(SP)X 
$ IF 

1540 LI=INT(LI):X$=STR$(LI):GOSUB 3000:T 
T=TT+LI HO 

1550 PRINT"INTEREST LOST ON DOWNPAYMENT. 
. M ;SPC(SP)X$ ED 

1560 TP=(M*MP)-AB:TP=INT(TP) :X$=STR$(TP) 
: GOSUB 3000 :TT=TT+TP AI 

1570 PRINT"T0TAL PAYMENTS ON L0AN[8"."]" 
;SPC(SP)X$ HK 

1575 PRINT" [SS][SS]( AUTO PORTION ONLY) EH 
1580 SA=SX*PP:SA=INT(SA):X$=STR$(SA):GOS 
UB 3000: TT=TT+SA PH 

•1590 PRINT"SALES TAX ON PURCHASE^"."]"; 
SPC(SP)X$ MP 

AHOY! 101 



IMPflRTfl NTI Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
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I provii 

1593 LC=INT(LC):X$=STR$(LC):GOSUB 3000 :T 

T=TT+LC 

1595 PRINT"LICENSE FEES FOR ";INT(YR) ;"Y 

EARS[5"."]";SPC(SP)X$ 

1600 PRINTTAB(29);:FOR K=1T010:PRINT CHR 

$(183);:NEXT 

1610 X$=STR$(TT):GQSUB 3000 

1620 PRINT:PRINTTAB(5)"T0TAL";SPC(19)"$" 

;SPC(SP);X$ 

1630 PRINT:PRINT"LESS:":PRINT 

1640 Z=PP*(1-TD):Z=INT(Z):X$=STR$(Z):G0S 

UB 3000:TT=TT-Z 

1650 PRINT"ESTIMATED RESIDUAL VALUE" 

1660 PRINT" [5" "]0F THE CAR[ 14"."]$";SPC 

(SP)X$ 

1665 IF Y$="N" THEN 1720 

1670 IS=INT(IS):X$=STR$(IS):G0SUB 3000 :T 

T=TT-IS 

1680 PRINT"TAX SAVINGS ON INTER£ST[7"."] 

";SPC(SP)X$ 

1700 SS=INT(SS):X$=STR$(SS):GOSUB 3000 :T 

T=TT-SS 

1710 PRINT"TAX SAVINGS ON SALES TAX[6"." 

]";SPC(SP)X$ 

1720 PRINTTAB(29):F0RK=TT010:PRINTCHR$(1 

83) ;:NEXT: PRINT 

1730 X$=STR$(TT):G0SUB 3000 

1740 PRINTTAB(5)"NET COST OF BUYING" ;SPC 

(6)"$";SPC(SP)X$ 

1750 RETURN 

1800 REM DISPLAY LEASING RESULTS 

1810 PRINTCHR$(147) 

1820 PRINTTAB(12)"C0ST OF LEASING" 

1830 PRINTTAB(12):F0RK=1T015:PRINTCHR$(1 

83) ;:NEXT: PRINT: PRINT 

1840 SD=INT(SD):X$=STR$(SD):GOSUB 3000: L 

T=LT+SD 

1850 PRINT"SECURITY DEP0SIT[13"."]$"SPC( 

SP)X$ 

1860 TL=INT(TL):X$=STR$(TL):GOSUB 3000 :L 

T=LT+TL 

1870 PRINT"TOTAL OF LEASE PAYMENTS [7"."] 

";SPC(SP)X$ 

1880 IL=INT(IL):X$=STR$(IL):GOSUB 3000: L 

T=LT+IL 

1890 PRINT"INTEREST LOST ON SECURITY DEP 
.";SPC(SP)X$ 

1891 IF AP=0 THEN1906 

1895 AP=INT(AP):X$=STR$(AP):GOSUB 3000:L 

T=LT+AP 

1898 PRINT" ADDITIONAL REQUIRED PAYMENT[3 

"."]";SPC(SP)X$ 

1900 IA=INT(IA):X$=STR$(IA):GOSUB 3000:L 

T=LT+IA 

1903 PRINT"L0ST INTEREST ON ADD'L PAYMEN 
T";SPC(SP)X$ 
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CE 

PD 

NC 
LD 

GN 
OL 

GO 

HH 

KM 
BF 

AB 

OF 

ON 

HF 

EN 
LD 

OJ 
IM 
JP 
FG 
LO 

NO 

BI 

IB 

EI 



DE 
EM 

EN 



IH 
OL 
GK 

NN 



1906 LF=INT(LF):X$=STR$(LF):GOSUB 3000 :L 
T=LT+LF 

1907 PRINT"LICENSE FEE FOR ";T1 ; "YEARS [6 
"."]";SPC(SP)X$ 

1 909 PRINTrAB( 29 ) : FORK=1T010 : PRINTCHR$ ( 1 
83);:NEXT:PRINT 

1910 LT=INT(LT):X$=STR$(LT):GOSUB 3000 BB 
1920 PRINT TAB(5)"TOTAL";SPC(19)"$";SPC( 
SP)X$ 

1930 PRINT : PRINT"LESS : " : PRINT 
1940 X$=STR$(SD):G0SUB 3000 ; LT=LT-SD 
1950 PRINT"RETURN OF SECURITY DEP0SIT[3" 
. n ]$";SPC(SP)X$ 
1955 PRINTTAB( 29 ) : FORK=1T010 : PRINTCHR$ ( 1 
83);: NEXT: PRINT EN 

1960 LT=INT(LT):X$=STR$(LT):GOSUB 3000 BB 
1970 PRINTTAB(5)"NET COST OF LEASING" ;SP 
C(5)"$";SPC(SP)X$ NF 

1990 RETURN IM 

2000 A(1)=.279:A(2)=.146:A(3)=.111:A(4)= 
.099:A(5)=.084 OD 

2010 FOR K=1T0T:TD=TD+A(K):NEXT:RETURN DF 
2100 B(1)=.167:B(2)=.126:B(3)=.106:B(4)= 
.099:B(5)=.095 MA 

2110 FOR K=1T0T:TD=TD+B(K): NEXT: RETURN EI 
2200 C(1)=.123:C(2)=.H5: C(3) = .114:C(4) 
-.107:0(5)=. 106 GM 

2220 FOR K=1T0T:TD=TD+C(K):NEXT: RETURN NL 
2500 REM DISPLAY CASH PURCHASE RESULTS IE 
2510 PP=INT(PP):X$=STR$(PP):GOSUB 3000 :T 
T=TT+PP A I 

2520 PRINT"PURCHASE PRICE[15"."]$";SPC(S 
P)X$ MH 

2530 XL=INT(XL):X$=STR$(XL):GOSUB 3000 :T 
T=TT+XL PA 

2540 PRINT"INTEREST LOST ON PUR. PRICE [3 
"."]";SPC(SP)X$ AC 

2550 GOTO 1580 HG 

3000 SP=9-LEN(X$): RETURN KA 
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10 POKE53280 , 1 : POKE53281 , 1 : PRINT" [CLEAR ] 
[c 4]":DIMT1(20),T2(30) 
•20 DIMW$(74),G$(14),G(14),W(14,7,9),T(14 
ON ,9),T$(14,9),P$(14),P(74) 
MK -25 D$=".":N$=CHR$(13):C0$=", " 

• 30 F0RI=0T022 : K$=K$+" [ DOWN ] " : NEXT : K$=" [ H 
CE 0ME]"+K$+"[RED][12"[RIGHT]"]PRESS ANY KE 
Y" 

MK -87 S=2:C=12:O=(49152+2*1024)/256:PC=6143 
9 

ME -88 F0RI=1T033:READA:P0KE49151+I,A:NEXT:G 
OSUB95 

EG -89 P0KE56576, PEEK( 56576) AND252:P0KE53272 



AK 

MN 
NM 



KL 
KD 

FE 



,S*16+C:P0KE648,0 LM 

90 FORI=53236T053245:READA:POKEI,A:NEXT DE 

91 PQKE53246,PEEK(792):P0KE53247,PEEK(79 

3 ) : P0KE792 , 244 : P0KE793 , 207 : G0T0100 HG 

95 POKE56334 , PEEK( 56334) AND254 : P0KE1 , PEE 
K(1)AND251:SYS49152 NE 

96 P0KE1 , PEEK ( 1 )0R4 : POKE56334 , PEEK ( 56334 
)0R1: RETURN FN 

97 DATA169, 0,133, 251, 133, 253, 169, 208, 133 
,252,169,240,133,254,162,16 DL 

98 DATA 160, 0,1 77, 25 1,1 45, 253, 136, 208, 249 
,230,252,230,254,202,208,240,96 A J 

99 DATA72, 169, 4, 141, 136, 02, 104, 108, 254, 2 
07 HL 

100 F0RI=1T074:READW$(I):NEXT HH 
110 PRINT"[CLEAR][c 4]"TAB(17)"[7"[D0WN] 

"] [RVSON ]SCRIPT":PRINTTAB( 16)" [DOWN] [RVS 
ON] ANALYSIS IG 

114 PRINTTAB(13)"[4"[DOWN]"][RVSON]BY BO 
B SPIRKO" EH 

120 F0RI=0T014:READG$(I),G(I):NEXT GG 
140 E=8 : F0RI=1T049 : READL : FORJ= 1T08 : READK 
:POKEPC+L*E+J,K:NEXT:NEXT BN 

150 PRINT"[HOME]"TAB(19) M [8"[DOWN] n ][BAC 
KARROW] [EP]":PRINTTAB(20)"[D0WN]]" GC 
155 PRINTTAB( 13) "[ DOWN ][ DOWN ][UPARROW] 
[UPARROW] [UPARR0W][5" "][UPARROW]":PRIN 
TTAB(14)"[D0WN]][6" "][EP]" LF 

160 F0RI=1T053 : READL : FOR J=1T08 : READK : POK 
EPC+L*E+J,K: NEXT: NEXT PJ 

170 FORI=OT014:FORJ=OTOG(I):READT$(I,J): 
NEXT: NEXT OC 

180 FORI=OTO14:FORJ=0TOG(I):READT(I,J):F 
ORK=OTOT(I,J):READW(I,J,K) BO 

190 NEXT: NEXT: NEXT PI 

200 INPUT" [ CLEAR] [c 5] [DOWN] [ DOWN ]FILENA 
ME" ;F$: PRINT" [ DOWN ][c l]N[c 5]EW OR [c 1 
]L[c 5]0AD?" DN 

220 GETA$:IFA$=""THEN220 HL 

230 IFA$="L"THEN4000 LO 

240 PRINT" [DOWN ][c l]L[c 5]EFT- OR [c 1] 
R[c 5]IGHTHANDED?" KE 

242 GETH$:IFH$=""THEN242 HN 

245 IFH$="L"THEN500 GI 

250 H$="R":G0T0500 CP 

300 B=VAL(A$)-1:F0RC=0T0T(A,B):P(W(A,B,C 
))=P(W(A,B,C))+1:NEXT:RETURN NF 

333 GETB$:IFB$= m 'THEN333 FI 

337 IFB$<>"1"THENRETURN BJ 

339 P$=P$+T$ ( A , B)+C0$ : A$=CHR$ ( B+49 ) : GOSU 
B300: RETURN FJ 

344 PRINTTAB(5)T$(A,B)": [RVSON]" ; :RETU 
RN JM 

400 PRINT"[c 4]":F0RB=0T0G(A):PRINTTAB(7 
)RIGHT$(STR$(B+1),1)". "T$(A,B):NEXT LL 
405 PRINT" [c 7]"TAB(7); KM 

410 PRINT"[ RVSON] [c B][LEFT]"; :GETA$:PRI 
NT"[RVSOFF][c B] [LEFT]"; :IFA$=""THEN410 PB 



420 V=ASC(A$)-49:IFV<00RV>G(A)THEN410 AM 
430 PRINT" ";: RETURN OA 

450 PRINTLEFT$(P$(I) , J) :PRINTRIGHT$(P$(I 
),LEN(P$(I))-J):RETURN HG 

500 F0RA=0T014 : AA=A+1 : PRINT" [ CLEAR ] [ BLUE 
][D0WN]"AA;G$(A)"[D0WN][c 5]" CD 

510 ONAAGOSUBIOOO, 1200, 1400, 1600, 1800, 20 
00 , 2200 , 2400 , 2600 , 2800 , 3000 ,3200 , 3400 BF 
520 IFA=13THENG0SUB3600 NE 

525 IFA=14THENG0SUB3800 PD 

530 NEXT IA 

600 PRINT" [ CLEAR ] [ DOWN ] [ DOWN ] [ BLUE ] "F$ " : 
SCRIPT CHARACTERISTICS[DOWN][c 5]": FORI 
=OT014 ON 

610 PRINT" [c 5]"G$(I)": [c 4]"; :IFI=4THE 
N650 BP 

620 IFLEN(P$(I))<24THEN650 BJ 

630 FORJ=20T040:IFMID$(P$(I),J,1)=","THE 
NGOSUB450:GOT0660 JD 

640 NEXTJ MM 

650 PRINTP$(I) KN 

660 NEXTI : IFA$="T"ORA$="D"THENPRINTK$ : GO 
T0745 DC 

700 M=0:N=0:FORI=1T074:IFP(I)=.THEN740 FH 
720 IFP(I)>2THENM=M+1:T1(M)=I:G0T0740 PC 
730 IFP(I)=2THENN=N+1:T2(N)=I LN 

740 NEXT:PRINTK$ ME 

745 GETA$:IFA$=' M 'THEN745 KF 

746 PRINT" [ CLEAR ][ BLUE ]"F$": ANALYSIS" OK 
750 Y=44 : PRINT" [ DOWN] [DOWN] [c 4] DOMINANT 

TRAITS: [c 5]"; GC 

760 F0RI=1T0M:X$=W$(T1(I)):Y=Y-2*(I=M):G 
0SUB950 EN 

770 NEXT :Y=44: PRINT: PRINT" [c 4][D0WN]0TH 
ER TRAITS: [c 5]"; NH 

780 F0RI=1T0N:X$=W$(T2(I)):Y=Y-2*(I=N):G 
0SUB950:NEXT OB 

800 PRINT: PRINT" [4"[D0WN]"][c 1][3" "]E[ 
c 5]ND[3" "][c l]D[c 5]ISK[3" "][c l]T[c 

5]APE[3" "][c l]P[c 5]RINTER[3" "][c 1] 
R[c 5]UN[c 7]":PRINTTAB(3) KO 

810 PRINT" [RVSOFF][c B][LEFT]"; :GETA$:IF 
A$=" "THENPRINT" [ RVSON ][ c B ] [ LEFT ] " ; : GOTO 
810 MF 

820 PRINT" [LEFT]";:IFA$="D"ORA$="T"THEN 
4100 AC 

830 IFA$="P"THEN4200 JE 

840 IFA$="R"THEN900 HJ 

850 IFA$="E"THENEND FI 

860 G0T0810 CN 

900 FORI=1T074:P(I)=0:NEXT:FORI=OT013:P$ 
(I)="":NEXT:H$= ,,,1 :P$=" ,, :G0T0200 FA 
950 IF(LEN(X$)+2)>39-P0S(0)THENPRINT OD 
960 PRINTCHR$(32)X$CHR$(Y);:RETURN AH 
1000 PRINTTAB( 21 ) " [ BLACK ] [ BACKARROW] "TAB 
(29)"[RVS0N]'[c 5]" HA 

1010 PRINT"SCRIPT MAY BE [RVSON] [BLACK ]V 
ERTICAL[RVSOFF][c 5-] OR [c 5 ] [ RVSON ] [ BLA 
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CK]%&!$%&#[[c 5][RVS0FF] OR" MG 

1015 PRINT"IT MAY SLANT TO THE LEFT.": PR 
INT AH 

1020 PRINT"SLANT CAN ALSO VARY. FOR INST 
ANCE," OH 

1030 PRINT"SOME LETTERS MAY BE VERTICAL 
WHILE" AK 

1050 PRINT"OTHERS ARE SLANTED. IF THE SA 
MPLE" BO 

1060 PRINT"HAS MORE THAN ONE SLANT OR TH 
E SLANT" CA 

1070 PRINT" APPEARS INCONSISTENT THEN IT 1 
S" KG 

1080 PRINT"CONSIDERED IRREGULAR.": PRINT JB 
1085 PRINT"0F THE FOLLOWING CHOSE THE ON 
E" MG 

1090 PRINT"THAT CLOSELY MATCHES THE SLAN 
T:"K$ JB 

1095 GETA$:IFA$=""THEN1095 KB 

1100 PRINT" [CLEAR] [BLUE]" JK 

1110 PRINTTAB(17)"3 4 5":PRINTTAB(13)"2[ 
3" "][c M] [s B] [c G][3" "]6":PRINTTAB( 
14)"[s I][3" "][c G][s -][c M][3" "][s U 
]" MO 

1120 PRINTTAB(11)"1[3" "][s J] [s T][s 
-][s Y] [s K][3" "]7":PRINTTAB(12)"[s M 
] [s I] [s G][s -][s H] [s U] [sN]" LP 
1130 PRINTTAB(13)"[s M] [s J] [3"[s -]" 
] [s K] [s N]":PRINTTAB(14)"[s M] [s I] 

[s H][s -][s G] [s U] [s N]" KF 

1140 PRINTTAB(15)"[s M] [s J][s Y][s -][ 
s T][s K] [s N]":PRINTTAB(16)"[s M][s I] 
[c M][s -][c G][s U][s N]":PRINTTAB(17)" 
[s M][s J][s -][s K][s N]" DH 

1150 PRINTTAB(18)"[s M][s -][s N]":PRINT 
TAB(8)"[23"[c Y]"]" HP 

1160 G0SUB400:IFH$="L"THENA$=MID$( "76543 
21",VAL(A$),1) MI 

1170 GOSUB300:P$(A)=T$(A,V):RETURN IL 
1200 PRINT"THE BASELINE IS THE IMAGINARY 

LINE THAT" KH 

1210 PRINT"WE WRITE ON. SOME WRITERS HAV 
E LINES" JK 

1220 PRINT"THAT ARE STRAIGHT AS A RULER 
WHILE" FJ 

1230 PRINT"OTHERS HAVE TROUBLE WRITING A 

STRAIGHT" DN 

1240 PRINTLINE EVEN WHEN THEY HAVE GUID 
E LINES. [DOWN] [DOWN] [BLUE]" PO 

1260 S$=" [c A][5"[s *]"][c S]":F0RI=1T 
04 : PRINTS$ ; : NEXT : PRINT GF 

1270 S$="[s -][c 4][5"[s C]"][BLUE][s -] 
[s -][c 4][s R][s F][s C][s D][s E][BL 
UE][s -] [s -][c 4][s E][s D][s C][s F] 
[s R][BLUE][s -] [s -][c 4][s C][s F][s 

C][s F][s C][BLUE][s -]" EH 

•1280 F0RI=0T03:PRINTTAB(2)S$:NEXT GM 
•1290 PRINT" [c 4] ":F0RI=0T03:PRINTTAB(4+ 
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9*1)1+1; : NEXT: PRINT: PRINT KB 

1299 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 
URN DD 

1400 PRINT"THE SIZE OF HANDWRITING IS JU 
DGED BY" JN 

1410 PRINT"SIZE OF THE MIDDLE ZONE LETTE 
RS SUCH AS" FC 

1420 PRINT" [RVS0N][ BLACK ]A[c 5][RVS0FF], 

[RVSON] [ BLACK ]E[c 5][RVS0FF], [RVSON] [B 
LACK]M[c 5][RVS0FF], AND [RVSON] [BLACK ]V 
[c 5][RVS0FF]; LETTERS WITHOUT" EI 
1430 PRINT"UPPER OR LOWER LOOPS. AVERAGE 
D-SIZED" AK 

1440 PRINT"HANDWRITNG IS ABOUT 3 ML. HIG 
H. SELECT THE APPROPIATE SIZE:" IB 
1460 PRINTTAB(9)"[D0WN] [DOWN] [BLACK] [RVS 
ON][c D][RVSOFF] [BACKARR0W]":C$=CHR$(2 
34) I J 

1470 PRINTTAB(5)"[RVS0N][c +][c M][cEP][ 
sEP]"C$" LARGE [c I][c T][c @][c G] [ 
c *][c K]" IP 

1480 PRINTTAB(5)"[RVS0N][c Q] [RVS0FF]"TA 
B(15)"]" CA 

1490 PRINTTAB(7)"[DOWN]l[6" "]2[6" "]3[4 
" "]4" LD 

1499 G0SUB4O0:GOSUB300:P$(A)=T$(A,V):RET 
URN DD 

1600 PRINT"CONTINUITY REFERS TO THE DEG 
REE OF" GO 

1610 PRINT"CONNECTEDNESS BETWEEN LETTERS 
. IF THE" LH 

1620 PRINT"WRITING IS MOSTLY OR ENTIRELY 

CONNECTED" HH 

1630 PRINT"THEN PRESS 1. IF IT IS MOSTLY 

IM 
1635 PRINT"OR ENTIRELY DISCONNECTED THEN 

PRESS 2." CC 

1640 PRINT"IF IT IS ABOUT EQUALLY CONNEC 
TED AND" OL 

1650 PRINT"DISCONNECT£D THEN PRESS 3." DF 
1660 PRINTTAB( 30)" [DOWN] [DOWN] [BLACK] [UP 
ARROW]" DF 

1670 PRINT" [ RVSON ]CONNECTED [s Q][s R 
]S[s S][s T][s U][s U][s V][s S][s W][s 
V][s Q] [s S][s T]MBI[s W][s R]ON" BM 
1680 PRINTTAB(7)"[D0WN]1"TAB(19)"2"TAB(3 
1) "3 [DOWN] [DOWN]" DH 

1699 GOSUB400:G0SUB300:P$(A)=T$(A,V):RET 
URN DD 

1800 PRINT"THERE ARE A FEW STYLES OF" CE 
1805 PRINT"WRITING. ROUND SCRIPT APPEARS 

ROUND IN" FC 

1810 PRINT"IN EVERY WAY. THE TOPS OF LET 
TERS AND" PM 

1815 PRINT"THE CONNECTING STROKES ARE RO 
UND.": PRINT BC 

1820 PRINT"WHEREAS ANGULAR SCRIPT CONTAI 
NS LETTERS" GD 



1825 PRINT"THAT ARE ALL POINTED. OFTEN A 
SAMPLE" HN 

1830 PRINT"IS NEITHER ENTIRELY ROUND OR 
ANGULAR" GB 

1835 PRINT"BUT A COMBINATION OF B0TH.":P 
RINT LG 

1840 PRINT"INFREQUENTLY, YOU'LL FIND HAN 
DWRITING" KL 

1845 PRINT"THAT IS ORGINAL OR ARTISIC: T 
HE" IF 

1847 PRINT"LETTERS ARE UNUSUAL OR UNCONV 
ENTIONAL." GN 

1850 PRINT"BUT DON'T MISTAKE SUPERFLUOUS 
LOOPS" JK 

1855 PRINT"AND FLOURISHES AS BEING ORIGI 
NAL."K$ EF 

1860 GETA$:IFA$=""THEN1860 LJ 

1870 PRINT" [ CLEAR] [c 4] [3"[D0WN]"]"TAB(1 
8)"[RVS0N][s I][RVS0FF]"TAB(26)"+[RVS0N] 

FP 
1875 PRINTTAB(4)"[RVSON]XOUND"SPC(5)"[s 
B][s C][s D][s E][s F][s B][s G]"SPC(5)" 
*$#&[#[" FK 

1880 PRINTTAB(16)"[RVS0N][s H]":PRINTTAB 
(6)"l"TAB(17)"2"TAB(29)"3":PRINT"[c 4]" BM 
1900 F0RB=0TO3:PRINTTAB(7)RIGHT$(STR$(B+ 
1),1)". "T$(A,B):NEXT KF 

1910 G0SUB405:G0SUB300:P$=T$(A,V):PRINT HB 
1920 PRINT"[DOWN][DOWN][c 5] WHICH BEST D 
ESCRIBES THE HANDWRITING? [c 4] [DOWN]" FI 
1930 F0RB=4T05:PRINTTAB(7)RIGHT$(STR$(B- 
3),1)". "T$(A,B):NEXT CK 

1940 GOSUB405:IFV>1THENPRINT"[LEFT]"; :G0 
TO 1940 DC 

1950 A$=CHR$(V+52):G0SUB300:P$( A )=?$+", 
"+T$(A,V+4):RETURN FN 

2000 PRINT"LINES CAN BE FAR APART OR SO 
CLOSE" NH 

2010 PRINT"TOGETHER THAT THE LOWER LOOPS 

OF ONE" GM 

2020 PRINTLINE TANGLES WITH THE UPPER L 
OOPS OF" PO 

2030 PRINT"THE LINE BELOW:" JO 

2040 PRINTTAB( 13) "[RVS0N][ BLACK ]DRAGGING 
":PRINTTAB(16)"[s A] [PI] [s A]" DD 

2050 PRINTTAB(12)"[RVS0N]TANGLED[RVS0FF] 

[RVS0N]LINES":PRINTTAB(15)"[PI]" CF 
2060 PRINT" [ DOWN ][c 5] IF THE LINES ARE V 
ERY TANGLED THEN" OM 

2070 PRINT"PRESS 5. IF THE LINES ARE NAR 
ROW BUT" NH 

2080 PRINT"0NLY A FEW LOOPS ARE TANGLED 
PRESS 4." A J 

2090 PRINT"IF LINES ARE CLOSE BUT NOT TO 
UCHING" PB 

2100 PRINT"PRESS 3. IF THE LINES ARE WID 
E PRESS 2." GC 

2110 PRINT"IF THE SPACE BETWEEN LINES IS 



SO WIDE" JN 

2120 PRINT"THAT A ANOTHER LINE COULD BE 
PLACED" FE 

2130 PRINT"BETWEEN THEM THEN PRESS l.":P 
RINTK$ AC 

2140 GETA$:IFA$=""THEN2140 KB 

2199 PRINT" [CLEAR] [4"[D0WN]"]":G0SUB400: 
GOSUB300:P$(A)=T$(A,V):RETURN BD 

2200 PRINT"LEFT AND RIGHT MARGINS ARE TY 
PICALLY" HB 
2210 PRINT "ABOUT ONE INCH WIDE. OFTEN T 
HEY ARE" KI 
2220 PRINT"MADE WIDER OR NARROWER, OR AR 
E" MC 
2230 PRINT"DIFFERENT WIDTHS. CHOSE ONE T 
HE" BM 
2240 PRINT"FOLLOWING. IF IT DOES NOT FIT 

IN ANY" MH 

2250 PRINT"CATEGORY, EG, A MARGIN MAY BE 
NARROW AT" NN 

2260 PRINT"AT THE TOP AND WIDE AT THE BO 
TTOM, THEN PRESS 6.":PRINTK$ JP 

2265 GETA$:IFA$=""THEN2265 NL 

2270 PRINT" [CLEAR]" HH 

2280 S$="[BLUE][e G][c 4][6"[s C]"][BLUE 
][c M][3" "][s Y][c 4][7"[s F]"][BLUE][s 

T] [s B][c 4] [4"[s C]"] [BLUE][s B]": 
FQRI=1T05:PRINTTAB(5)S$:NEXT NP 

2290 PRINTTAB(8)"[BLACK]1"TAB(20)"2"TAB( 
30) "3 [DOWN]" KJ 

2300 S$="[BLUE][s B] [c 4][5"[s C]"][BLU 
E][s H][3" "][s H][c 4][6"[s F]"] [BLUE] 
[s B]":F0RI=1T05:PRINTTAB(5)S$:NEXT FL 
2310 PRINTTAB(8)"[BLACK]3"TAB(20)"4[D0WN 
]" DP 

2399 GOSUB40O:G0SUB300:P$(A)=T$(A,V):RET 
URN DD 

2400 PRINT"PRESSURE IS SOMETIMES DIFFICU 
LT T0[6" "] ASSESS. FOR HEAVY"; PM 
2410 PRINT" PRESSURE, TURN THE[4" "]PAGE 

OVER AND SEE OR EVEN FEEL IF THE "; KD 
2430 PRINT" PEN HAS LEFT INDENTATIONS I 
N THE PAPER." CG 

2440 PRINT" [ DOWN ]LIGHT PRESSURE APPEARS 
AS DELICATE OR" IH 

2450 PRINT"FAINT HANDWRITING. IF PRESSUR 
E APPEARS TO BE NEITHER HEAVY OR "; PB 
2470 PRINT"LIGHT[s *][s *]0R Y0U[4" "]SI 
MPLY CAN'T TELL[s *][s *]THEN PRESS 3.[D 
OWN] [DOWN]" IG 

2499 G0SUB400 : G0SUB300 : P$ ( A ) =T$ ( A , V) : RET 
URN DD 

2600 PRINT"SPEED IS ALSO DIFFICULT TO DE 
TERMINE.[3" "]SL0W WRITING IS OFTEN "; AL 
2610 PRINT"DISCONNECTED AND CONTAINS AW 
KARD OR FLOURISHED FORMS." HH 

2650 PRINT"T'S ARE CAREFULLY CROSSED AND 

I'S DOTTEDPRECISELY." DO 



AHOY! 105 



2660 PRINT" [DOWN] FAST SCRIPT IS MOSTLY C 
ONNECTED AND[5" ^CONTAINS NATURAL, "; OE 
2680 PRINT"AND UNC0MPLICATED[5" "]FORMS 

T-BARS AND I-DOTS MAY BE PLACED TO "; BK 
2685 PRINT"THE RIGHT. FAST WRITING IS US 
UALLY[3" "] INCLINED. 1 ' EL 

2690 PRINT" [DOWN] IF THE WRITING APPEARS 
NEITHER FAST OR" CC 

2700 PRINT H SLOW OR YOU'RE NOT SURE, THEN 

PRESS 3." LL 

2799 GOSUB400:GOSUB300:P$(A)=T$(A,V):RET 
URN DD 

2800 PRINT"UPPER ZONES REFER TO THE UPPE 

R LOOPS ON" ND 

2805 PRINTTAB(16)"[c A] [UP ARROW] [UPARR 
0W][6" "][BACKARROW]" MN 

2810 PRINT"[c 5]LETTERS SUCH AS [RVSON][ 
c 4]B[c 5][RVS0FF], [RVSON][c 4]H[c 5][R 
VSOFF], AND [RVSON][c 4]L[c 5][RVS0FF], 
THE" KL 

2820 PRINT"LOWER ZONE CONSISTS OF THE LO 
WER LOOPS" OP 

2830 PRINT"ON LETTERS SUCH AS [RVSON][c 
4]G[c 5][RVS0FF], [RVSON][c 4]P[c 5][RVS 
OFF], AND [RVS0N][c 4]Y[c 5][RVS0FF]." IA 
2840 PRINTTAB(19)"[c 4]] [EP][6" "]]" LP 

2845 PRINT" [c 5JTYPICALLY UPPER AND LOWE 
R ZONES ARE[5" "]ABOUT THE SAME HEIGHT 
R"; JB 

2846 PRINT" HIGHER THAN THEMIDDLE ZONE. 

IF THE ZONES ARE ABOUT [5" "] EQUAL"; OD 
2870 PRINT" PRESS 1. IF THE THE ZONES VA 
RY[4" "]THEN PRESS 6. [DOWN]" KA 

2885 PRINT"IF EITHER UPPER OR LOWER ZONE 

IS SHORT THEN CONSIDER IT BEING "; MX 
2895 PRINT"NORMAL. IF BOTH ZONES ARE SH 
ORT THEN PRESS 5."K$ JL 

2900 GETA$:IFA$=""THEN2900 LF 

2910 PRINT" [ CLEAR] [c 4]":S$="[RVS0N]4044 
YGAG" NB 

2920 PRINTTAB(5)"< «"TAB(15)"> »"TAB(2 
5)"< «" NM 

2930 FORI=5TO25STEP10:PRINTTAB(I)S$; :NEX 
T: PRINT OL 

2940 PRINTTAB(9)"]] ]"TAB(19)"]] ]"TAB(2 
9)"[PI][PI] [PI][DOWN]" OH 

2950 PRINTTAB(9)"1"TAB(19)"2"TAB(29)"3[D 
OWN]" CL 

2960 PRINTTAB(5)">[SS3»"TABC25)"< >" FF 
2970 FORI=5T025STEP10:PRINTTAB(I)S$; :NEX 
T: PRINT OL 

2980 PRINTTAB(9)"[PI][PI] [PI]"TAB(19)"= 
= ="TAB(29)"][PI] =[D0WN]" IF 

2990 PRINTTAB(9)"4"TAB(19)"5"TAB(29)"6[D 
OWN]" CG 

2999 G0SUB400:G0SUB300:P$(A)=T$(A,V) :RET 
URN DD 

3000 PRINT"OVALS ARE THE LETTERS [RVSON] 



[c 4]A[c 5][RVS0FF] AND [RVSON][c 4]0[RV 
S0FF][c 5]. THESE [4" "]ARE USUALLY CLOSE 
D:"; MO 

3010 PRINT" [RVSON] [c 4]0VA4S[RVS0FF][c 
5]. BUT SOMETIMESTHEY HAVE OPENINGS AT T 
HE TOP: [RVSON] [c 4]QV@4S" LB 

3040 PRINT"[c 5][D0WN]IF MOST OR ALL THE 

OVALS ARE CLOSED" FD 

3050 PRINT"THEN PRESS 1. IF MOST OR ALL 
OVALS" NB 

3060 PRINT"ARE OPEN PRESS 2. IF THEY ARE 

EQUALLY" :PRINT"PRESENT PRESS 3.[D0WN][D 
OWN]" I A 

3099 G0SUB400 : GOSUB300 : P$ ( A ) =T$ ( A , V ) : RET 
URN DD 

3200 PRINT"T-BARS ARE THE STROKES THAT C 
ROSS THE[3" "]LETTER T. OF THE FOLLOWING 
"; JM 

3220 PRINT" CHOSE THE[4" "]LENGTH WHICH 
IS THE MOST PRAVALENT:" BE 

3230 PRINT" [ BLACK ] [ DOWN ] [ DOWN ] "TAB( 10) " [ 
RVSON]T"TAB(20)"12"TAB(30)"3[DOWN]" LC 
3235 PRINTTAB(10)"1"TAB(20)"2"TAB(30)"3[ 
DOWN] [DOWN] [c 4]" LK 

3240 F0RB=0T02:PRINTTAB(7)RIGHT$(STR$(B+ 
1),1)". "T$(A,B):NEXT AG 

3245 GOSUB405:GOSUB300:P$=T$(A,V)+", " LP 
3250 PRINT" [ CLEAR] [c 5]T-BARS ALSO VARY 
IN POSITION. IF ANY OF THE FOLLOWING APP 
EAR"; LD 

3255 PRINT" DISTINCTLY AT[6" "]LEAST THR 
EE TIMES IN THE SAMPLE THEN" BH 

3265 PRINT"PRESS 1. IF NOT THEN PRESS AN 
Y:[c 4] [DOWN] [DOWN]" NF 

3270 B=3 : G0SUB344 : PRINT"4" : GOSUB333 : PRIN 
T PE 

3275 B=4 : G0SUB344 : PRINT"05" : G0SUB333 : PRI 
NT BF 

3280 B=5:GOSUB344:PRINT"62":GOSUB333 LD 
3290 B=6 : PRINTTAB( 12 ) " [ RVSON ] 7" : GOSUB344 
: PRINT"4" : GOSUB333 : PRINT : B=7 : G0SUB344 FO 
3300 PRINT" [ RVSON ]8":G0SUB333:P$(A)=LEFT 
$(P$,LEN(P$)-2):P$="":LL=0:RETURN IH 
3400 PRINT"I-DCTS ARE INTERPRETED IN A S 
IMILAIR WAYTO T-BARS. IF ANY OF THE"; KE 
3420 PRINT" FOLLOWING [6" "] APPEARS DISTI 
NCTLY MORE THAN TWICE THEN" EM 

3430 PRINT"PRESS 1. IF NOT PRESS ANY: [DO 
WN][DOWN][c 4]" HM 

3450 F0RF=0T05 : B=F : GOSUB344 : PRINTCHR$ ( 20 
2+F):GOSUB333: PRINT ND 

3460 NEXT:IFP$=""THENRETURN OA 

3470 P$(A)=LEFT$(P$,LEN(P$)-2):RETURN HK 
3600 PRINT"BEGINNING STROKES ARE THE STR 
OKES AT [4" "]THE BEGINNING OF WORDS:" CA 
3620 PRINT" [ RVSON] [c 4]THE -COMMODORE -C 
0MPUTER[RVS0FF]":PRINTTAB(19)"[EP]" NJ 
3630 PRINT" [c 5] IF MOST OR ALL ALL HAVE 
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BEGINNING [7" "] STROKES THEN PRESS 1." JJ 
3640 PRINT"PRESS 2 IF THEY ARE MOSTLY AB 
SENT:" IF 

3650 PRINT"[RVSON][c 4][s W]HE [s S]OMMO 
DORE [s S]0MPUTER[RVS0FF]":PRINTTAB(17)" 
[EP]" LN 

3660 PRINT" [c 5] IF THEY BOTH APPEAR EQUA 
LLY PRESS 3. [3" [DOWN]"]" OH 

3699 G0SUB400 : GOSUB300 : P$ ( A ) =T$ ( A , V ) : RET 
URN DD 

3800 PRINT"THE HEIGHT OF CAPITALS IS DET 
ERMINED IN" 00 

3810 PRINT"RELATIONSHIP TO THE MIDDLE ZO 
NE." FP 

3820 PRINT"MEDIUM SIZED CAPITALS ARE ABO 
UT TWICE" PG 

3830 PRINT"THE HEIGHT OF MIDDLE ZONE LET 
TERS. TALL" FA 

3840 PRINT"OR SHORT CAPITALS ARE TALLER 
OR SHORTER" EK 

3850 PRINT"THEN THE MIDDLE ZONE. [DOWN] [D 
OWN]" EJ 

3899 G0SUB400:GQSUB300:P$(A)=T$(A,V):RET 
URN DD 

4000 PRINT" [ DOWN] [c l]D[c 5]ISK OR [c 1] 
T[c 5]APE?" HH 

4005 GETA$:IFA$=""THEN4005 LF 

4006 IFA$O"T M ANDA$O"D"THEN4005 EC 
4010 IFA$="D"THEN0PEN2 ,8,2, F$+" , P , R" : GOT 
04030 DM 
4020 0PEN2,1,0,F$ CO 
4030 INPUT#2 , H$ , M , N : F0RI=0TO14 : INPUT#2 , P 

$: IFI=4ORI=110RI=12THENG0SUB4050 PH 
4035 P$(I)=P$:NEXT PI 

4040 F0RI=lTOM:INPUT#2,Tl(I):NEXT:F0RI=l 
TON : INPUT#2 , T2( I ) : NEXT : CL0SE2 : G0TO600 NG 
4050 Q$="":F0RJ=1T0LEN(P$) :M$=MID$(P$, J, 
1 ) : IFM$="-"THENM$=" , " GI 

4060 Q$=Q$+M$: NEXT: P$=Q$: RETURN BA 
4100 PRINT" [c 5][D0WN]":IFA$="D"THEN0PEN 
2,8,2,"0:"+F$+",P,W":PRINT"[c 4]SAVING " 
F$:GOT04120 JK 

4110 0PEN2,1,1,F$ ED 

4120 PRINT#2,H$;N$;M;N$;N:FORI=OT014:P$= 
P$(I) :IFI=40RI=110RI=12THENGOSUB4150 DN 
4130 PRINT#2,P$:NEXT BB 

4140 FORI=1TOM:PRINT#2,T1(I):NEXT:FORI=1 
T0N:PRINT#2,T2(I):NEXT:CL0SE2:G0T0746 GB 
4150 P$="":F0RJ=1T0LEN(P$(I)):M$=MID$(P$ 
(I),J,1):IFM$=","THENM$="-" LE 

4160 P$=P$+M$: NEXT: RETURN FK 

4200 0PEN4,4:PRINT#4,CHR$(14)CHR$(16)"25 
SCRIPT ANALYSIS"CHR$(15) PN 

4210 PRINT#4,N$N$"NAME: "F$N$N$"HANDWRIT 
ING CHARACTERISTICS" DL 

4240 F0RI=0T014:PRINT#4,G$(I)": "P$(I):N 
EXT:PRINT#4,N$"D0MINANT TRAITS" IC 
4250 FORI=1TOM-1:PRINT#4,W$(T1(I))CO$; :I 



FI/5=INT(I/5)THENPRINT#4 MB 

4255 NEXT:PRINT#4,W$(T1(M))D$N$ GP 
4270 F0RI=1T0N-1:PRINT#4,W$(T2(I))C0$;:I 
FI/5=INT(I/5)THENPRINT#4 JF 

4275 NEXT:PRINT#4,W$(T2(N))D$N$ GL 
4280 CLOSE4:GOT0746 DH 

5000 DATA AESTHETIC, AFFECTIONATE, AGGRESS 
IVE, ALOOF, AMBITIOUS BO 

5010 DATA AMIABLE, ANXIOUS, ARDENT, ARROGAN 
T, ASSERTIVE KN 

5020 DATA BALANCED, CALM, CAREFUL, CARELESS 
, CAUTIOUS 01 

5030 DATA CONFUSED, CONSCIENTIOUS ,CONSERV 
ATI VE, CONVENTIONAL, CRITICAL NI 

5040 DATA DIFFIDENT, DILIGENT, EMOTIONAL, E 
NERGETIC, ENTERPRISING AF 

5050 DATA EXCITABLE, EXTRAVAGANT, EXTROVER 
TED, FASTIDIOUS, FLEXIBLE PD 

5060 DATA FRUGAL, GENEROUS, IDEALISTIC, ILL 
OGICAL BG 

5070 DATA IMAGINATIVE, IMPATIENT, IMPRESSI 
ONABLE, IMPULSIVE, INDECISIVE CM 

5080 DATA INDEPENDENT, INDIFFERENT, INDI VI 
DUALISTIC, INHIBITED, INSINCERE CH 

5090 DATA INTELLIGENT, INTROVERTED, IRRIT A 
BLE, LANGUID, LOGICAL BN 

5100 DATA LOQUACIOUS, LOYAL, MATURE, METHOD 
ICAL, NERVOUS EH 

5110 DATA ORGANISED, PASSIONATE, PASSIVE,? 
ATIENT, PRACTICAL KJ 

5120 DATA REALISTIC, REASONABLE, REFLECTIV 
E, RESERVED, RESOLUTE IL 

5130 DATA SECLUSIVE, SELF-DISCIPLINED, SEL 
FISH, SENSITIVE, SINCERE EB 

5140 DATA SPONTANEOUS, TACTFUL, TACTLESS, U 
NDISCIPLINED, UNRELIABLE BO 

5200 DATA SLANT, 7, BASELINE, 3, SIZE, 3, CONT 
INUITY,2,STYLE,5,LINE SPACING, 4 FG 
5210 DATA MARGINS, 5, PRESSURE, 2, SPEED, 2, Z 
ONES , 5 , OV ALS , 2 , T-BARS , 7 , I-DOTS , 5 LD 
5220 DATA BEGINNING STROKES, 2, CAPITALS, 2 GD 

6028 DATA28, 160, 160, 160, 160,64 ,0,0,0 PG 

6029 DATA29, 10, 10, 10, 10, 10,4,0,0 PM 

6030 DATA30,0,0,0,0,0,0,64,64 LC 

6031 DATA31, 0,0, 0,0, 0,0, 16,40 GA 
6033 DATA33,0,0,14,18,32,99,156,0 PM 
6043 DATA43,0,0,0,0,0,2,6,12 EE 

6060 DATA60, 0,0,0,0,0, 8,8, 8 DA 

6061 DATA61,6,10,4,0,0,0,0,0 GA 

6062 DATA62,0,0,8,8,8,8,8,8 BG 
6065 DATA65, 10, 10, 18,50,44,44,56,40 LI 

6067 DATA67, 0,0, 0,85, 170, 0,0,0 AH 

6068 DAT A68, 0,0, 85, 170,0,0,0,0 DA 

6069 DATA69, 0,85, 170,0,0,0,0,0 CJ 

6070 DATA70,0,0,0,0,170,85,0,0 GB 

6073 DATA73,8,8,12,4,6,2,3,1 GD 

6074 DATA74, 128, 128, 192,64,96,32,48, 16 EP 

6075 DATA75,1,1,3,2,6,4,12,8 HA 
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•6077 
•6078 
•6082 
•6085 
•6094 
•6128 
•6129 
•6130 
•6131 
•6132 
•6133 
•6135 
•6136 
•6137 
•6139 
•6140 
•6141 
•6142 
•6143 
•6144 
•6145 
•6146 
•6147 
•6148 
•6149 
•6150 
•6152 
•6153 
•6154 
•6155 
•6160 
•6161 
•6162 
•6163 
•6164 
•6165 
•6166 
•6167 
•6168 
•6170 
•6173 
•6176 
•6177 
•6178 
•6179 
•6180 
•6181 
•6182 
•6183 
•6184 
•6194 
•6195 
•6196 
•6197 
•6198 
•6199 
•6200 
•6201 



DATA77, 
DATA78, 
DATA82 , 
DATA85, 
DATA94, 
DATA128 
DATA129 
DATA130 
DATA131 
DATA 132 
DATA 133 
DATA 135 
DATA136 
DAT A 137 
DATA 139 
DAT A 140 
DATA141 
DATA142 
DATA 143 
DATA144 
DATA145 
DATA146 
DATA147 
DATA 148 
DAT A 149 
DAT A 150 
DATA152 
DATA153 
DATA154 
DATA155 
DAT A 160 
DATA161 
DATA162 
DATA163 
DATA 164 
DATA165 
DATA 166 
DATA167 
DATA168 
DATA170 
DATA173 
DATA176 
DATA177 
DATA178 
DATA 179 
DATA 180 
DATA181 
DATA182 
DATA183 
DATA 184 
DATA194 
DATA195 
DATA196 
DATA197 
DATA198 
DATA 199 
DATA200 
DATA 201 



128,192,96,48,24,12,6,3 


KG 




1,3,6,12,24,48,96,192 


GC 




0,0,0,0,0,85,170,0 


KK 




16,16,48,32,96,64,192,128 


AP 




6,10,10,18,18,18,18,12 


HB 




,0,0,16,36,68,68,187,0 


HM 




,0,0,26,38,66,66,189,0 


KE 




,64,64,92,98,66,67,188,0 


AA 




,0,0,60,98,64,193,62,0 


FM 




,2,2,58,70,66,194,61,0 


GK 




,0,0,28,36,88,96,191,0 


MN 




,0,0,26,38,66,66,189,6 


KB 




,64,64,92,98,66,66,129,0 


CI 




,0,8,0,8,24,40,199,0 


OA 




,64,64,88,100,72,88,135,0 


GP 




, 40 , 40 , 40 , 40 , 40 , 48 , 223 ,0 


GC 




,0,0,84,106,74,74,137,0 


AE 




,0 


0,92,98,66,66,129,0 


JM 




,0 


0,28,43,82,98,60,0 


AH 




,0 


,32,44,50,98,162,173,160 


KI 




,0 


0,16,35,66,68,184,0 


DL 




,0 


,0,32,60,36,68,131,0 


PF 




,0 


,0,12,24,36,68,187,0 


FJ 




,8 


,127,8,8,24,40,199,0 


IH 




,0 


0,66,66,66,70,185,0 


EM 




,0 


0,67,66,66,164,24,0 


GL 




,0 


,0,24,36,68,66,129,0 


MK 




t0 


,0,66,66,66,70,187,6 


JB 




,0 


,0,12,18,34,98,156,0 


DN 




,1 


,1,26,38,68,202,49,0 


GA 




,0 


0,0,0,0,0,0,0 


AB 




,0 


,0,12,18,32,96,159,0 


DE 




,1 


,1,26,38,68,202,49,0 


GE 




,0 


,0,28,36,88,97,158,0 


CC 




,l r 


j, 12, 24,48,80, 144, 15,0 


IA 




,1 


,0,0,8,24,104,134,0 


PJ 




,0 


,0,0,44,50,68,135,0 


GG 




,0 


,0,0,0,3,5,5,10 


BN 




,1 


,1,26,38,68,202,49,0 


CC 




,i: 


J, 24,16,38,66, 196, 56,0 


LC 




, f j 


,0,0,0,0,0,7,0 


EK 




,0 


,3,0,0,0,0,0,0 


NN 




,8 


,255,8,8,24,40,199,0 


BN 




,0 


,192,0,0,0,0,0,0 


MB 




,8 


,30,8,8,24,40,199,0 


FK 




,8 


8,8,8,24,40,199,0 


BM 




,8 


232,8,8,24,40,199,0 


GL 




,8 


,11,8,8,24,40,199,0 


NH 




,0 


0,0,0,0,0,63,0 


BK 




,8 


8,8,63,24,40,199,0 


BG 




,0 


0,3,13,18,38,217,0 


FK 




,0 


0,9,27,45,81,160,0 


JN 




,0 


0,3,13,18,38,217,6 


FC 




,0 


,0,17,50,86,154,17,0 


MB 




,4, 


12,12,20,36,66,129,0 


GB 




,0, 


0,16,56,73,138,12,0 


GH 




,12,8,16,48,32,0,0,0 


NN 




,0, 


0,0,0,1,3,2,6 


GJ 





6202 DATA202,0,0, 16,0, 16, 16,48,206 GK 

6203 DATA203,0,0,0,0, 16, 16,48, 206 DC 

6204 DATA204, 8,0,0,0, 16, 16,48, 206 NJ 

6205 DATA205, 0,0, 1,0, 16,16,48,206 CN 

6206 DATA206 , , , 1 28 , , 16 , 16 , 48 , 206 IH 

6207 DATA207,4,8,0,0, 16, 16,48, 206 FC 

6209 DATA2O9,2,2,58,70,66,66,60,0 HE 

6210 DATA210, 16,0, 16,48,80, 16, 12,0 DO 

6211 DATA211,0,0,28,34,64,66,60,0 PI 

6212 DATA212,0,0,28,34,66,68,56,0 PI 

6213 DATA213, 0,0, 44, 114,34,34,65,0 JM 

6214 DATA214,0,0,28,36,120,66,60,0 OM 

6215 DATA215, 16,126, 16,16,16,18,12,0 JJ 

6223 DATA223, 0,0, 0,0, 0,93, 255,0 DN 

6224 DATA224, 0,0,0,0,0,93, 255,0 FC 

6225 DATA225,0,0,18,18,18,164,219,0 FJ 

6226 DATA226, 0,0, 0,0, 124,212,87,0 MI 

6227 DATA227, 0,0, 1,1, 205, 147, 238,0 MK 

6228 DATA228, 0,0, 32, 0,36, 109, 182,0 PK 

6229 DATA229, 0,0, 0,0, 190, 170, 201,0 BN 

6230 DATA230,28,34,66,66,66,67,62,10 LM 

6231 DATA231,16,46,34,66,66,130,1,0 EP 

6232 DATA232,28,34,68,88,96,96,159,0 MB 

6233 DATA233,28,38,74,82,98,198,57,0 MJ 

6234 DATA234,24,24,24,24,24,36,195,0 ML 

6235 DATA235,18,18,34,34,34,34,28,0 01 

6236 DATA236,O,O,O,0,24,24,255,24 BG 
7000 DATAVERY RECLINED, RECLINED, LIGHTLY 
RECLINED, VERTICAL, LIGHTLY INCLINED PM 
7002 DATAINCLINED,VERY INCLINED, IRREGULA 

R DL 

7010 DATASTRAIGHT , ASCENDING , DESCENDING , U 
NEVEN EI 

7020 DATAVERY LARGE, LARGE, MEDIUM, SMALL OE 
7030 DATAMOSTLY CONNECTED, MOSTLY UNCONNE 
CTED DD 

7032 DATABOTH CONNECTED & UNCONNECTED BE 
7040 DATAROUND, ANGULAR, ROUND & ANGULAR, 
RIGINAL, LEGIBLE, ILLEGIBLE/MESSY KA 
7050 DATAVERY WIDE, WIDE, MEDIUM, NARROW, TA 
NGLED FH 

7060 DATABOTH NORMAL, BOTH NARROW, BOTH WI 
DE.WIDE LT/NORMAL OR NARROW RT CF 
7062 DATANARROW OR NORMAL LT/WIDE RT.OTH 
ER EG 

7080 DATAHEA VY , LIGHT .MEDIUM , FAST , SLOW , ME 
DIUM NC 

7090 DATASYMMETRICAL, EXTENDED UZ,EXTENDE 
D LZ IH 

7092 DATABOTH UZ & LZ EXTENDED , BOTH UZ & 

LZ SHORT, IRREGULAR 00 

7100 DATAMOSTLY OPEN, MOSTLY CLOSED, BOTH 
OPEN & CLOSED OB 

7110 DATAREGULAR , LONG , SHORT , ABSENT , LEFT , 
RIGHT, HIGH, LOW GN 

7120 DATAPRECISELY PLACED, ABSENT, HIGH, RI 
GHT, LEFT, DASHED NF 

7130 DATAMOSTLY ABSENT, MOSTLY PRESENT, BO 
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TH ABSENT & PRESENT 

7140 DAT AT ALL, MEDIUM, SHORT 

8300 DATA5 ,39,40,41,44, 65, 67 

8301 DATA5 
6,71 

8302 DATA7 
8,19,68,69 

2,8,23,24,37,56,69,70,6,2,8,2 

68,3,7,14,16,74 

11,17,29,53,64,66,69,5,5,24,2 



LC 15) 



8304 DATA 7 

3,26,38,56 

8310 DATA6 

5,26,35,70 

8312 DATA3 

4 

8320 DATA4 

,42 

8322 DATA3 

9,41,45,58 

8330 DATA6 

68,4,1,20,25,42,52 

8340 DATA4 

5,64 

8342 DATA2 

51,61,66 

8344 DATA8 

8350 DATA 2 

,28,49,60 

8352 DATA6 

34,35,63,73 

8360 DATA3 

8362 DATA2 

,50,0,0 

8370 DATA4 

8,68,0,0 

8380 DATA8 



4,39,40,41,44,67,4,39,43,44,4 
4,15,31,40,41,49,62,63,5,2,6, 



26,39,54,73,5,7,26,39,54,73,7 

9,22,24,27,28,5,9,27,32,35,40 

18,55,61,68,9,1,13,18,21,22,2 
71 

13,19,22,34,53,61,64,2,34,35, 
5,42,52 

1,2,6,30,32,6,3,20,24,36,37,4 

1,42,45,3,1,35,42,45,4,13,17, 

14,16,35,36,37,39,45,54,73 
4,63,65,4,13,45,55,71,66,3,11 

14,16,31,34,47,70,72,5,14,31, 



EP 
OE 

PI 

FD 

PI 

CH 

EH 

00 

DO 

OP 

EK 

CO 
KG 

ME 

MK 



10,24,25,56,64,5,1,21,30,37,4 



11,13,17,55,4,29,50,60,68,72 FM 
4,62,65,1,15,21,4,27,29,32,44 

CJ 

DL 

KE 
HH 



1,3,5,10,22,25,30,38,70,8,11, 



12,13,18,29,48,57,58,62,0,0 



8390 DATA3 

,4,5,17,56 

8392 DATA5 



8394 DATA4 

8400 DATA5 

59,1,51,69 

8410 DAT A3 

1,57,63 

8412 DATA2 

26,33,35,1 

8420 DATA4 

5 

8430 DATA3, 11, 13, 17, 55, 2, 14, 73, 74, 0,35, 2 

,17,52,59,2,15,21,39,4,20,35,36,42,47 

8440 DATA3, 5, 9, 10, 27, 0,40, 2, 11, 30, 63 

B R A I i\ F R A M K 

FROM PAGE 45 

•10 DIM R(5),RC(5),N(5),T(15),W$(15),W2$( 



6,11,12,13,5,5,33,35,37,45,68 

59,60 

5,33,35,37,45,56,3,18,23,59,6 

14,16,23,37,39 

13,15,41,46,63,71,3,17,43,51, 

11,12,13,66,3,24,36,47,64,2,2 

14,73,74,1,15,39,2,3,38,72,2, 

57,58 

10,17,40,42,52,1,19,53,1,33,3 



KA 
LO 

CE 

HP 

DC 
BN 

BK 

MN 



•20 SC=1024:QA=198:QB=214:WW=54272:GU=0:G 

F=0:TT=0:OL=0 
•30 A$(1)="[RVS0N][WHITE]Y0U WIN [3"!"][R 

VSOFF]":A$(2)="[12" "]" 
•40 A$(3)="[35" "]" 
•50 WF=54276:P 1=54273 :VL=54296:AD=54277:F 

Q=1:CL=53280:CH=646 AO 

•60 POKECL,3:POKECH,7:POKE53281,0:PRINT"[ 

CLEAR]" OK 

•70 REM JD 

•80 F0RT=1T0500:F=1:F=0:NEXT JI 

•90 F0RI=1T06:READH(I):READL(I):READD(I): 

NEXT; REM * PITCH VALUES LG 

• 100 F0RI=1T018 : PRINT" [ HOME ] [ 3" [ DOWN ] " ] " ; 

SPC(I);" [s Q]":FORT=1T080:NEXT:NEXTI FE 
•110 L(1)=225:L(2)=160:R(1)=97:R(2)=160:Q 

=1163:P0KEQ,160 JF 

• 120 LF=Q-1 : RT=Q+1 : F0RI=1T010 : F0RJ= 1T02 : P 

0KELF,L(J):P0KERT,R(J) FJ 

• 130 F0RT=1T060 : NEXT : NEXT J : LF=LF-1 : RT=RT+ 

1:NEXTI EP 

• 140 FORT=1T0200 : NEXT : MM$="BRAINFRAME" : Q= 
LF+2 OK 

•150 F0RI=1T010:M$=MID$(MM$,I,1):M=ASC(M$ 
):P0KEQ,M+1 28-64 JO 

• 160 FQ=FQ+10:G0SUB1220:Q=Q+2 : F0RT=1T0300 
:NEXT:NEXTI AD 

• 170 F0RT=1T0400:FQ=FQ+10:G0SUB1 220: PRINT 
"[c 6]" HI 

•180 PRINT"[D0WN][D0WN]";TAB(9);"AN EXCER 

CISE IN LOGIC" EI 

•190 PRINT" [ DOWN ][ DOWN ]";TAB( 13); "FOR THE 

C-64[ DOWN ] [ DOWN ] [ 7" [ LEFT ] " ] BY" AG 
•200 PRINT" [DOWN] [DOWN]" ;TAB( 14); "NORM VO 

GEL" ML 

•210 FORT=1T0425:F=1:F=0:F=T/33:NEXT DJ 
•220 PRINT"[H0ME][6"[D0WN]"]";:G0SUB1260 BA 
•230 PRINT" [PURPLE] I WILL SELECT A 3 TO 

5 - DIGIT NUMBER [3" "](Y0UR CHOICE),"; DI 
■240 PRINT" COMPOSED OF NUMBERS FROM [WHI 

TE]0 - 9. [PURPLE] (NOTE: EACH NUMBER"; GC 
•250 PRINT" CAN BE USED [WHITE]MORE THAN 
ONCE). [PURPLE] AFTER ENTERING Y0UR[3" 

"]TRY"; KN 

•260 PRINT" (YOU HAVE 15), I WILL TELL YO 

U HOW MANY NUMBERS ARE"; HI 

•270 PRINT" CORRECT & IN THE [WHITE ]C0R- 

RECT POSITION,"; FH 

•280 PRINT" [PURPLE] AND HOW MANY ARE CORR 

ECT BUT IN THE [WHITE] WRONG [PURPLE] POSI 

TION." JG 

•290 PRINT" [DOWN] IF YOU GIVE UP DURING T 

HE GAME, JUST[4" "]TYPE IN"; MM 

•300 PRINT" [ WHITE ]E[ PURPLE], AND I'LL TE 

LL YOU WHAT THE[3" "] SOLUTION WAS AND"; BN 
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310 PRINT" END THE GAME.":PRINTTAB(13) ;" 

[DOWN] [ WHITE ]G00D LUCK!" BP 

320 PRINT" [DOWN] ENTER THE SIZE OF THE N 
UMBER (3/4/5)"; FJ 

330 GETND$:IFND$=""THEN330 BG 

340 IFASC(ND$)<510RASC(ND$)>53THEN330 BF 
350 ND=VAL(ND$):GOSUB1260 JF 

360 IFNDO0LTHENGF=0 : TT=0 : GU=0 : F0RI=1T01 
5:W$(I)=" ":W2$(I)=" *':NEXT LJ 

370 PRINT" [CLEAR ][ DOWN ]";TAB( 10) ;"[RVS0N 
]";ND;" NUMBERS [RVSOFF]" IN 

380 PRINT"[D0WN][D0WN]";TAB(28);"N0.[3" 
"]WR0NG" KP 

390 PRINT" TRY";TAB(27);"[CYAN]&[WHITE] 
P0S[3" "]POS" EI 

400 POKEQB, 22: PRINT: PRINT" ([YELLOW] 'R' 
[WHITE]TO RE-DO LINE / [YELLOW] 'E* [WHITE 
] TO END GAME)" DM 

410 TT=TT+1:TW=0:SP=10:P=9-ND:SP=10:IFND 
=3THENSP=12 NI 

420 FORI=1TOND:R(I)=INT(RND(0)*10) :NEXT: 
BC=7:BB=1 EM 

430 POKEQB, 6: PRINT: JE 

440 REM JD 

450 REM *** START OF PLAY LOOP: *** IJ 
455 REM JD 

460 TW=0:YG=0:FORZ=1T015:PRINTA$(3) BE 
470 PRINT "[UP][c 3]";Z;:P0KECH,BC+BB:W= 
6 MO 

480 F0RI=1T0ND PM 

490 GETN$:IFN$=""THEN490 LK 

500 IFN$="E"THENGOSUB1370:GOT0870 MN 
5 10 IFN$="R"THENG0SUB1 260 : PRINT : PRINT" [ U 
P]";SPC(3);A$(3):G0T0470 DJ 

520 IFASC(N$)<480RASC(N$)>57THEN490 BP 
530 PRINTTAB(W);N$;:N(I)=VAL(N$):W=W+P:N 
EXTI KC 

540 F0RI=lT0ND:RC(I)=R(I):FQ=N(I)+25:GOS 
UB1220 EH 

550 P0KE53280,N(I)+1 :FORJ=1T0450:NEXTJ:N 
EXTI LJ 

560 REM JD 

570 REM *** CORPOS COMPARATOR: *** NM 
580 CP=0:FORI=1TOND:IFN(I)=RC(I)THENCP=C 
P+1:N(I)=98:RC(I)=99 ME 

590 NEXTI:IFCP=ND-1THENTW=TW+1 LC 
600 REM JD 

610 REM *** COR COMPARATOR: *** OL 
620 C0=0:F0RI=1T0ND:F0RJ=1T0ND:IFN(I)=RC 
(J)THENCO=CO+l:N(I)=98:RC(J)=99 LF 
630 NEXTJ:NEXTI NB 

640 IFCP=NDTHEN740 KA 

650 REM *** IN-GAME PROMPTS: *** OM 
660 IFCPONDTHEN PRINTTAB(28) ;CP;"[4" "] 
";CO:BB=-BB CD 

670 IFND=3ANDZ=10THENR=4:GOSUB1070 KH 
680 IFTW=4THENR=2:GOSUB1070 LP 

690 IFCP+CO=NDANDYG=OTHENR=l:G0SUB1070 OF 



700 IFZ=14THENR=3:G0SUB1070 IG 

710 IFZ=15THENR=5:G0SUB1070:GOT0940 OB 
720 NEXTZ NM 

730 REM *** WIN ROUTINE: *** OL 
740 F=2:G=1:P0KECL, 2: PRINT" [CLEAR] [DOWN] 
[DOWN]";TAB(5);A$(l);SPC(7);Z;" TRIES" EJ 
750 G0SUB1310:PRINT"[D0WN][D0WN]";TAB(12 
); "[PURPLE] THE ANSWER WAS: [DOWN][ DOWN] [W 
HITE]" DC 

760 PRINTSPC(SP) ; :FORI=1TOND:PRINTR(I) ;S 
PC(6-ND);: NEXT: PRINT FK 

770 T(Z)=T(Z)+1:T$=STR$(T(Z)):W$(Z)=MID$ 
(T$,2,1):IFT(Z)<10THEN790 OL 

780 W2$(Z)=RIGHT$(T$,1) OJ 

790 IFZ>NDG0T0820 EL 

800 PRINT" [ DOWN ] [ DOWN ] [ CY AN ]UNBELIEVEABL 
E! 'GIVEUPS' REDUCED TO '0' !":GU=0:GF=1 HM 
810 G0T0940 DB 

820 IFZ<=ND+2THENPRINT" [ DOWN ] [ DOWN ] [ CYAN 
]NEXT TIME, I'LL HAVE TO GIVE U A HARDER 

ONE!":GOT0940 IN 

830 IFZ<ND+6THENPRINT" [ DOWN ] [ DOWN ] [ CYAN ] 
NOT BAD, BUT U NEED MORE PRACTICE! ":G0 
T0940 ME 

840 PRINT"[DOWN][CYAN]YOU NEED ALOT MORE 

PRACTICE! TRY AGAIN !":GOT0940 CI 
850 REM JD 

860 REM *** GIVEUP ROUTINE: *** LD 
870 GU=GU+1:IFGF=1THENGU=0 FB 

880 P0KECL,2:PRINT"[CLEAR][3"[D0WN]"]";T 
AB(12);"THE ANSWER WAS: [DOWN] [DOWN] [WHIT 
E]" LO 

890 PRINTSPC(SP);:F0RI=1T0ND:PRINTR(I);S 
PC(6-ND);: NEXT: PRINT FK 

900 PRINT" [DOWN] [DOWN] [CYAN ] TRY AGAIN! 
YOU MIGHT GET IT NEXT TIME!" BC 

910 F=2:G=0 JM 

920 REM JD 

930 REM *** STATS: *** FI 

940 PRINT: PRINT" [ DOWN] [c 7]TRIES: 1 2 3 

4 5 6 7 8 9 12 3 4 5" FA 

950 PRINT" W0N:[c 6] "; :F0RI=1T015:PRI 
NTW$(I);" ";:NEXT NK 

960 PRINT:PRINTTAB(8); :F0RI=1T015:PRINTW 
2$(I);" ";:NEXT IP 

970 PRINT:PRINT"[DOWN][c 3] [4" "]TOTAL G 
AMES: ";TT;SPC(3) ; "GIVEUPS :";GU CO 
980 PRINT"[D0WN][WHITE][5" "]D0 YOU WANT 

TO TRY AGAIN?" DL 

990 PRINT" ([ YELLOW ]Y/N[ WHITE] OR [YELL 
OW]I[ WHITE] TO CHANGE # OF DIGITS)"; GD 
1000 GETYN$ : PRINT" [ HOME ][ DOWN ][ DOWN ]";TA 
B(5);A$(F):F=F-G GF 

1010 IFYN$="Y"THENFQ= 150 : G0SUB1 220 : G0T03 
70 GI 

1020 IFYN$="I"THENPRINT" [ CLEAR ] [ 3" [ DOWN ] 
" ] " : G0SUB1 260 : 0L=ND : G0T0230 LB 

1030 IFYN$<>"N"THENG=-G : F0RT=1T0400 : NEXT 
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: GOTO 1000 KN 

1040 PRINT"[CLEAR]":END CI 

1050 REM JD 

1060 REM *** IN-GAME PROMPTS: JJ 

1070 0NRG0T01080, 1100, 1120, 1130 ,1150 DG 
1080 FQ=200:GOSUB1220:PRINTTAB(6) ;"[YELL 
0W]Y0U'VE GOT *EM ALL NOW!" BD 

1090 YG=1:G0T01140 CK 

1100 GOSUB1370:PRINTTAB(8);"[YELL0W]GOIN 
G FOR BROKE, EH?":TW=99:G0T01140 LH 
1120 FQ=0:GOSUB1220:PRINTTAB(6) ;"[ YELLOW 
]THIS IS YOUR LAST CHANCE !":G0T0 11 40 HB 
1130 GOSUB1370:PRINTTAB(8);"[YELL0W]YOU 
HAVEN'T GOT IT [CYAN]YET?!" PA 

1 140 PRINT" [ UP ] " ; : F0RT=1T0350 : X=T/33 : NEX 
T: RETURN PA 

1150 G0SUB1370: PRINT: PRINT" [5" "] [YELLOW 
]G00D GUESS, BUT THE ANSWER WAS: [4" "][W 
HITE]" MP 

1160 PRINTA$(3) JG 

1170 PRINT"[UP][UP]";SPC(SP);:F0RI=1T0ND 
:PRINTR(I);SPC(6-ND);:NEXT:PRINT KE 
1180 P0KEQA,0:PRINT"[8" "][c 3] HIT ANY K 
EY TO CONTINUE [s Z]":WAITQA,1 IK 

1190 PRINT" [CLEAR] [4" [DOWN ]"]":G0SUB1260 
:F=2:G=0:P0KEQA,0: RETURN LO 

1200 REM JD 

1210 REM *** PITCHES: FM 

1220 POKEVL, 14 :POKEWF,0:POKEP1,FQ4-20:POK 
EAD,25:P0KEWF,17 LN 

1230 F0RT=1T01 00: NEXT :POKEWF,0: RETURN PN 
1240 REM JD 

1250 REM *** SWEEP: NH 

1260 FORI=1T022:POKEWW+I,0::NEXTI NF 
1270 P0KEWW+24 ,12: P0KEWW+5 , 80 : P0KEWW+6 , 2 
43:P0KEWW+3,4::P0KEWW+4,129 AI 

1280 F0RI=0TO140STEP4 : P0KEWW+1 , I : NEXTI : P 
OKEWW+4,128:FORI=1T050:NEXTI JH 

1290 P0KEWW+4, 128: RETURN KH 

1300 REM *** TUNE: IB 

1310 F0RI=WWT0WW+24:P0KEI,0:NEXT AI 
1320 POKEVL , 6 : POKEAD , 31 : POKEWW+3 , 200: POK 
EWW+2,200:P0KEWW+6,89 BO 

1330 F0RI=1T06 JB 

340 POKEWW+l,H(I):P0KEWW,L(I):P0KEWF,65 BA 
1350 F0RT=1T0D(I) :NEXT:P0KEWF,64:F0RT=1T 
10: NEXT : NEXTI : RETURN CO 

360 REM *** RAZZ: KG 

370 POKEVL, 15:P0KEAD,45:P0KEAD+1, 165 KC 
380 P0KEWF,33:P0KEWF-3,6:P0KEWF-4,5 BA 
390 FORT=1T0600 : NEXT : POKEWF , 32 : POKEWF-3 
: POKEWF-4 , : RETURN HD 

400 DATA 22,96,120,25,30,120,28,49,120 MG 
410 DATA 33,135,325,28,49,110,33,135,10 
Xi HJ 



n 



ft 



n t a t 



ROM PAGE 45 

•10 REM**SET UP THE PRINTAT ROUTINE** BE 
• 12 AT=679 : F0RN=ATT0AT+22 : READM : POKEN , M : N 

EXT DJ 

•14 DATA32,180,2,132,251,32,180 t 2 AN 

•16 DATA166,251,76,240,255,32,253,174 KO 

•18 DATA32, 158, 173,32,170,177,96 PI 
•20 REM**EXAMPLE PROGRAM USING PRINTAT** GA 

■22 P0KE53280,14:P0KE53281,12 LM 

•24 PRINTCHR$(147)CHR$(144) BM 

•26 SYSAT,2,0:PRINT"NOW" CK 

•28 SYSAT,5,2:PRINT"Y0U" DG 

•30 SYSAT,8,4:PRINT"CAN" PI 

•32 SYSAT,11,6:PRINT"PRINT" KL 

•34 SYSAT,8,17:PRINT"NEATLY" AP 

•36 SYSAT,11,16:PRINT"F0RMATTED" NN 

•38 SYSAT,14,17:PRINT"SCREENS" EP 

•40 FORN=OT02*[PI]STEP[PI]/40 AP 

•42 L=INT(12+SIN(N)*8) EB 

•44 C=INT(20+C0S(N)*8) FO 

•46 SYSAT.L.C: PRINT"*": NEXT AL 

•48 SYSAT,22,0 DE 

LUCKYLOTTERY 

FROM PAGE 53 

30 L$="[ HOME] [23" [DOWN]"]" LK 

40 GOSUB 1000: GOTO 1500 NO 

50 DIM NUM(45),TN(NN),PF(NN):C=0:B=0 ML 

70 PRINT "[CLEAR]": POKE 53280, 6: POKE 532 
81,1 01 

80 PRINT LEFT$(L$,2)TAB(8)"[c 4][c A] [21 
"[s *]"][c S]" ML 

90 PRINT LEFT$(L$,3)TAB(8)"[s B][21" "][ 
s B]" ED 

100 PRINT LEFT$(L$,4)TAB(8)"[s B] [RED] 
LUCKY LOTTO MENU[c 4] [3" "][s B] H HM 

120 PRINT LEFT$(L$,5)TAB(8)"[s B][21" "] 
[s B]" MJ 

125 PRINT LEFT$(L$,6)TAB(8)"[c Z][21"[s 
*]"][c X]" ED 

130 PRINT LEFT$(L$,10)TAB(8)"[BLUE][RVS0 
N][1][RVS0FF] -LOAD NUMBER FILE" LE 

140 PRINT LEFT$(L$,11)TAB(8)"[RVS0N][2][ 
RVSOFF] -ENTER CURRENT NUMBERS" PM 

150 PRINT LEFT$(L$,12)TAB(8)"[RVS0N][3][ 
RVSOFF] -DISPLAY ALL NUMBERS" IN 

160 PRINT LEFT$(L$,13)TAB(8)"[RVS0N][4][ 
RVSOFF] -6 MOST COMMON NUMBERS" NM 

170 PRINT LEFT$(L$,14)TAB(8)"[RVS0N][5][ 
RVSOFF] -END SESSION" CE 

175 PRINT LEFT$(L$,20)TAB(10)"[RED]Y0UR 
CHOICE ? [RVSON] [BLUE] [1-5] [RVSOFF]" NO 
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180 GET AN$:IF AN$="" THEN 180 CH 

190 AN=VAL(AN$) BK 

200 ON AN GOSUB 730,220,310,420,660 GG 

210 REM ======================== JO 

211 REM **** INPUT NUMBERS **** ML 

212 REM ========================= JO 

220 PRINT "[CLEAR]": POKE 53280, 12: POKE 5 
3281,1 LM 

230 PRINT TAB(4)"[RED][D0WN][s U][30"[s 
*]"][s I]" DB 

240 PRINT TAB(4)"[RED][RVS0N] ENTER THIS 

WEEKS LOTTO NUMBERS " OP 

250 PRINT TAB(4)"[RED][D0WN][UP][s J][30 
"[s *]"][s K]" AA 

260 PRINT LEFT$(L$,8):T=6 CB 

270 FOR A=l TO 6: PRINT TAB( 10) "NUMBER "; 
A;:INPUT N(A) EJ 

280 FOR S=l TO NN:IF N(A)=S THEN630 NO 
290 NEXT: NEXT EF 

301 G0T070 PF 

304 REM ========================= JO 

305 REM **** DISPLAY NUMBERS **** GG 

306 REM ========================= JO 

310 PRINT "[CLEAR]": POKE 53280, 3: POKE 53 
281,1:T=4 JJ 

320 PRINT TAB(6)"[UP][RED][RVS0N] CURREN 

T LOTTO NUMBER LIST " BM 

330 FOR S=l TO NN:IF S=23 THENPRINT "[HO 
ME]":T=24 EJ 

350 IF S>9 THEN370 BE 

360 PRINT "[BLUE]"TAB(T);S" "TN(S) :G0T03 
80 LK 

370 PRINT "[BLUE]"TAB(T-1);S" "TN(S) DH 
380 NEXT IA 

390 PRINTLEFT$(L$,25)"[c 4] PRESS [RVSO 
N] Fl [RVSOFF] FOR 6 MOST COMMON NUMBERS 
" ; PB 

400 GET AN$:IF AN$="" THEN400 DC 

410 IF AN$<>"[F1]" THEN400 NC 

414 REM ======================== HL 

415 REM **** COMMON NUMBERS **** IC 

416 REM ======================== HL 

420 FOR 1=1 TO NN:IF TN(I)>B THENB=TN(I) NF 
430 NEXT IA 

445 PRINT" [CLEAR]": POKE 53280, 6: POKE 532 

81 , 1 01 

450 PRINT LEFT$(L$,1)TAB(8)"[RED][RVS0N] 

6 MOST COMMON NUMBERS " II 

460 PRINT LEFT$(L$,3)TAB(12)"NUMBER";TAB 
(22) "TIMES" PN 

470 FOR E=l TO 6:SW=0 GO 

480 IF B<=0 THEN540 LK 

490 FOR 1=1 TO KN:T=14 LD 

495 IF I>9 THEN T=13 ML 

500 IF TN(I)=B THEN PRINT TAB(T) ;I;SPC(7 
);TN(I):SW=1 MM 

510 NEXT IA 

520 IF SW=0 THENB=B-1:G0T0480 FM 
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530 B=B-1 BA 

540 NEXT E MJ 

550 PRINTLEFT$(L$,22)TAB(5)"PRESS [RVSON 
][ BLACK ]F1[ RVSOFF] [RED] TO ENTER MORE NU 
MBERS" GF 

560 PRINT TAB(5)"PRESS [RVSON] [BLACK ]F3[ 
RVSOFF] [RED] TO VIEW ALL NUMBERS" FC 
570 PRINT TAB(5)"PRESS [RVSON] [BLACK ]F5[ 
RVSOFF] [RED] FOR MAIN MENU"; GK 

580 GET A$:IF A$="" THEN580 JI 

590 IF A$="[F1]" THEN220 KJ 

600 IF A$="[F3]" THEN310 KK 

610 IF A$="[F5]" THEN 70 IP 

620 IF A$<>"[F1]" OR A$<>"[F3]" OR <>"[F 
5]" THEN580 JL 

630 TN(S)=TN(S)+l:GOT0290 HF 

650 REM **** WRITE ROUTINE **** MA 

660 REM ======================== HL 

670 OPEN 2,8,2,"@0:"+NF$+",S,W" OA 

680 FOR S=l TO NN PE 

690 PRINT#2,TN(S) EH 

700 NEXT IA 

710 CLOSE 2: END JB 

715" REM ======================== HL 

720 REM **** READ ROUTINE **** CO 

725 REM ======================== HL 

730 PRINT" [CLEAR]": POKE 53280, 6: POKE 532 
81,6 OP 

735 PRINT LEFT$(L$,10)TAB(10)"[WHITE]LOA 
DING NUMBER FILE[3 l, ."] ,t HF 

736 PRINT LEFT$(L$,12)TAB(11)"0NE MOMENT 
PLEASE" BC 

740 OPEN 2,8,2,"@0:"+NF$+",S,R" OJ 

750 FOR S=l TO NN PE 

760 INPUT#2,TN(S) CD 

770 NEXT S NH 

780 CLOSE 2: GOTO 70 AA 

991 REM **** SPRITE MOVEMENT **** NO 

992 REM ========================== ME 

1000 FOR S=50880 TO 51116:READ A:POKE S, 
A: NEXT OD 

1010 DATA 169,255,45,0,198,240,16,169,0, 
141,0,198,162,21,189,0 MN 

1020 DATA 197,157,0,198,202,208,247,162, 
1,169,1,141,80,197,173,80 KK 

1030 DATA 197,45,0,197,240,3,76,243,198, 
232,232,14,80,197,208,238 
1040 DATA 76,49,234 

1050 DATA 169,0,29,0,197,208,3,76,97,199 
,169,128,61 DG 

1060 DATA 0,197,240,48,254,0,198,208,40, 
222,255,207,76,144,199,80 LE 

1070 DATA 197,45,16,208,208,12,173,16,20 
8,13,80,197,141,16,208,76 NB 

1080 DATA 43,199,173,16,208,77,80,197,14 
1,16,208,189,0,197,157,0 00 



•1090 DATA 198,76,97,199,222,0,198,208,40 

,254,255,207,208,29,173,80 AB 

•1100 DATA 197,45,16,208,208,12,173,16,20 

8,13,80,197,141,16,208,76 NB 

•1110 DATA 91,199,173,16,208,77,80,197,14 

1,16,208,189,0,197,157,0 CD 

•1120 DATA 198,169,0,232,29,0,197,208,3,7 

6,140,199,169,128,61,0 P0 

•1130 DATA 197,240,11,254,0,198,208,20,22 

2,255,207,76,134,199,222,0 KC 

•1140 DATA 198,208,9,254,255,207,189,0,19 

^,157,0,198,202,76,233,198 FP 

•U50 DATA 169,255,221,255,207,240,3,76,4 

3,199,173,80,197,76,17,199 BD 

•1160 DATA 120,169,192,141,20,3,169,198,1 

41,21,3,88,96 JL 

•1170 SP=53248:SS=50433: PRINT "[CLEAR]":P 

OKE 53280, 9: POKE 53281,0 NP 

•1180 H=1:V=1 JF 

•1190 FOR L=SS TO SS+16 STEP 2 FH 

•1200 POKE L,H:P0KE L+l.V OC 

•1210 H=INT(RND(0)*247)+1:V=INT(RND(0)*3) 

+1:NEXT CH 

•1220 POKE 50688, FF FO 

•1230 FOR S=2040 TO 2047 MK 

•1240 POKE S, 14: NEXT EA 

•1250 FOR S=896 TO 959: READ CH NE 

•1260 POKE S,CH:NEXT HG 

•1270 S=l DL 

•1280 FOR L=53287 TO 53293 CE 

•1290 POKE L,S;S=S+1:NEXT:P0KE 53294,14 LO 
•1310 S=20:A=30 PN 

•1320 FOR L=53248 TO 53263 STEP 2 PG 
•1330 POKE L,S+48:P0KE L+l,A+40 OF 
•1340 S=S+25:A=A+25:NEXT KB 

•1350 POKE 53269,255 FI 

•1360 POKE 50432,255 HF 

•1370 SYS 51104 KF 

•1380 RETURN IM 

•1384 REM ====================== PM 

•1385 REM **** SPRITE DATA **** LF 
•1386 REM ====================== PM 

•1390 DATA 1,129,128,63,255,252,127,255,2 

54,255,255,255,255,255,255 10 

•1400 DATA 241,129,128,241,129,128,241,12 

9,128,255,255,252,255,255,254 GI 

•1410 DATA 127,255,255,63,255,255,1,129,1 

43,1,129,143,1,129,143,255,255,255,255 NH 

• 1420 DATA 255,255,127,255,254,63,255,252 
,1,129,128,1,129,128,0 FG 

•1500 PRINT: PRINT: PRINT TAB(4)"[c 6][RVS0 
N]$[RVS0FF][11" "] [RVSON ]$ [RVSOFF]" BG 
•1510 PRINT TAB(4)"[RVS0N]$[RVS0FF][11" " 
][ RVSON ]$ [RVSOFF]" BL 

■ 1520 PRINT TAB(4)"[RVS0N]$[RVS0FF][3" "] 
[RVSON] [RVSOFF] [RVSON] [RVSOFF] [5" "][ 
RVSON]$ [RVSOFF] [3" "] [RVSON] [3" "]" LP 

K530 PRINT TAB(4)"[RVS0N] [3"$"] [RVSOFF] 



[RVSON] [RVSOFF] [RVSON] [RVSOFF] [5" "][ 
RVSON] [3"$"] [RVSOFF] [RVSON] [RVSOFF] [R 
VSON] " DD 

•1540 PRINT TAB(8)"[RVS0N] [RVSOFF] [RVSO 
N] [RVSOFF] [RVSON] [3" "] [RVSOFF] [5" "][ 
RVSON] [RVSOFF] [RVSON] [RVSOFF] [RVSON] 
[3" "]" AL 

•1550 PRINT TAB(8)"[RVS0N][3" "] [RVSOFF] 
[RVSON] [RVSOFF] [7" "] [RVSON] [3" "][RVSO 
FF] [RVSON] " BC 

•1560 PRINT TAB( 12) "[RVSON] [RVS0FF][3" " 
] [RVSON] [sEP] [RVSOFF] [6" "][ RVSON] [RV 
SOFF] [RVSON] [3" "]" BB 

•1570 PRINT TAB(12)"[RVS0N][3" '*] [RVSOFF] 
[RVSON] [ RVSOFF ][ sEP] [6" "] [RVSON] [RV 
SOFF] [3" "] [RVSON] " PB 

•1580 PRINT TAB(16)"[RVS0N] [c *][RVSOFF 
] [RVSON] [RVSOFF] [RVSON] [RVSOFF] [6" " 
] [RVSON] [RVSOFF] [RVSON] [3" "]" GD 

•1590 PRINT TAB( 16) "[RVSON] [RVSOFF][c *] 
[RVSON] [RVSOFF] [RVSON] [3" "] [RVSOFF] [6 
" "] [RVSON] [RVSOFF] [RVSON] [RVSOFF] [ 
RVSON] " MN 

1600 PRINT TAB( 21)" [RVSON] [RVSOFF] [10" 
"] [RVSON] [RVSOFF] [RVSON] " CL 

1610 PRINT TAB(21)"[RVS0N] [RVSOFF][10 H 
"] [RVSON] [3" "]" IH 

1620 PRINT:PRINT " [WHITE ][ 40" [c P]"]" PO 
1630 PRINT "[UP] [RVSON] [c 2][18" "][BLAC 
K] [c 2][21" "j" DO 

1640 PRINT "[UP] [RVSON] [11" "] [WHITE ]DOU 
BLE[c 2] [BLACK] [c 2] [ WHITE ]SOFTWARE[ 
c 2] [12" "] M LK 

1650 PRINT "[UP] [RVSON] [19" "] [BLACK] [ 
c 2][19" "]" IH 

1660 PRINT "[UP][WHITE][40"[c Y]"]" MC 
1670 PRINT TAB(10)"[UP][c 2]DESIGNED BY[ 
3"."]" PE 

1680 PRINT TAB(19)"B0B LLORET" NL 
1690 PRINT:PRINT TAB(11)"[WHITE]PRESS [R 
ED]F1 [WHITE ]T0 START"; IA 

1700 GET A$:IF A$="" THEN 1700 LG 
1710 IF A$="[F1]" THEN FOR A=SP TO SP+7: 
POKE SP+21,0: NEXT: GOTO 2000 
1720 IF A$<>"[F1]" THEN 1700 
2000 PRINT" [CLEAR]" 

2010 PRINTLEFT$(L$,10)" ENTER YOUR FILE 
NAME";: INPUT NF$ 
2015 IF NF$="" THEN 2010 
2020 PRINTLEFT$(L$,12)" ENTER HIGHEST NU 
MBER IN YOUR LOTTO" ; : INPUT NN BH 

2025 IF NN<1 THEN 2020 IE 

2030 GOT050 PD 



ALL THE PROGRAMS IN THIS IS- 
SUE OF AHOY! ARE AVAILABLE ON 
DISK OR CASSETTE. SEE PAGE 65 
FOR DETAILS. 



CG 
JG 
HH 

DF 
LA 
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SMALL THINGS CONSIDERED 

Our congratulations to the following Commodore users, winners of subscriptions to Ahoy! courtesy of New York's Small 
Things Considered radio show (heard weeknights 5-8 and Saturdays 6-8 on WNYC AM83): 
Thomas Louie Jeremy Rubinschneider Susie Freese Mario Costonz Misty Longo 



You need an RS232 interface for your Commodore. This 
is a relatively inexpensive device that can be easily found 
at most stores that handle Commodore products. In gen- 
eral there are two different types of interfaces: terminal 
type and printer type. You need the printer type. You may 
then use the printer as any other one by simply changing 



■ ^^ ■ \f u Continued from page 74 
removing the RS232 card since I will interchange the 
computers with the same printer) with a C-64. Is there 
a hardware product to do this, preferably one with few 
or no software commands? —Todd Walton 



Vickslmrg, MS one number when opening the printer channel for output. 




On Screen Status Display 



PAG! 

LINE I 

COL I 

I I 



n 6AE 
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HVimU 



10 CPI 42°sUSED 
AUS 
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Cursor location 

Scroll Indicator 

Print features currently being used 

Filename of text 

Percentage of RAM (memory) used 

Ruler (also message line) 

Word wrap'jusiificaiion flag 
'Block marked' (lag 
inset! mods flag 
Characters per inch 
Number of the current font 
Name el Ihe eurrani fori! 



Overview of FONTMASTER 
word processor features: 

1) Powerful block manipulation 
commands (Cut, Paste, Move, Overlay). 

2| User • friendly effects Include (fonts, 
super'sub scripts, underlining, bold face, 
etc.) 

31 Up lo eight different lonts can be used 
simultaneously. 

4) Many printing options such as page number- 
ing, titles, word-wrap, right justification, and 
more. 

5| Eight disk I/O commands (Save, Load, Verify, 
Erase, Etc.). 



Create Your Own or choose from over 15 type styles provided in this 
unique program. 

Including: Bouhous English 

Italic 

Ha i rfj l tn 



VISA 



Bouhous 
8 look 
Bold 
Fud«w 



Miiioi 



EDmddii Manhattan 

itop ScsU*>t 

liVTE itopbold 

UftopBpxsdfi f ©J<<t:"FnX<» 



inc. 



(913) 827-0685 
3010 Arnold Road Salina, KS 67401 



Reader Service No. 133 



Tired of Faying High Prices . . . 

CHECK THESE PRODUCTS 
FOR THE C-64! 

New Software 

Prime Fallot- RAHIC 3.0 $49.95 

(500 Digit Precision Moth Package) 

Write far Free Flyer 

SUy Travel ' 24.il,-) 

Software from Datamost 

Ankh 1&96 

Aztec 16.9S 

Mr, Robot ami his Robot Factory . . . 10.95 

Mychess n 24.95 

faint Magic . .29.95 

Kwik Load! 16.95 

Kwik Write! 16.95 

Inside Commodore DOS 22.95 

15*11 User's Guide 22.95 

Books from Datamost 

Inside Commodore DOS 18.95 

liVl 1 User's Guide 18.95 

Software/Book Combo's 

Inside Commodore DOS 39.95 

1541 User's Guide 39.95 

Commodore (54 Construction Kit . . . .25.95 
Gaines Commodore's Play 19.95 

Sent! check or Mt»ie\f t/rrter tOi 

INEXSOFT 

"Inexpensive Software & Books . . . 

Our name and our fame" 

21115 Devonshire, Suite #401A 

Chatsworth, CA 91311 

(818) 882-1686 

We pay the postage. CA residents add 
6.5% sales tax. Most Datamost products 
available. Software pre-tested on request. 

Reader Service No. 174 



...COMING IN THE AUGUST AHOY! (ON SALE JULY 2)... 



WINDOWS ON THE 
VIC AND 64 

ADD MACINTOSH MAGIC 

TO YOUR COMMODORE 

PROGRAMS 



OPENING 

CEREMONIES FOR 

THE 128 

COMMODORE'S NEW 

COMPUTER FROM THE 

INSIDE OUT 



FALLING NEEDLES 

AND 

SHARED BIRTHDAYS 

SIMULATIONS OF 
THE REAL WORLD 



114 AHOY! 



Simulator n 



<k 



V* 

% 



tf> 




-ou rself in the pi lot' s seat ot a Piper 181 Cherokee Archer for an awe-inspiring flight over realistic scene 
from New York to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vi< 
as you practice takeoff s, landings, and aerobatics. Complete documentation wilt get you airborne quickly 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battl 
game. Flight Simulator II features Include ■ animated color 3D graphics ■ day, dusk, and night flying modi. 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
instrumentation ■ VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■ World 
War I Ace aerial battle game ■ complete information manual and flight handbook. 



See your dealer . 

or for direct orders enclose $49.95 plus $2.00 lor shipping and specify UPS 
Of first class mail delivery. American Express. Diner's Club. MasterCard, and 
Visa accepted. 

Order Line: 800 / 637-4983 



mfcLOGIC 

Corporation 
713 Edgebrook Drive 
Champaign IL 61820 

(217) 359-8482 Telex: 206995 



Reader Service No. 146 



BEACH-HEAD — As chig 
commander of armed force; 
in the Pacific, your firs 
assignment is a tough one. Your mission is to obtain a quid 
naval victory and invade enemy territory with land forces. BEACH-HEAD 1 
— The wartime drama continues with "The Dictator Strikes Back. 
BEACH-HEAD II is a true "head to head" two player game with voici 
simulation and superb multiscreen graphics. RAID OVER MOSCOW - 
The Soviets launch a first strike against the United States. Can you 
commandos react in time to stop the attack? 



IEACIHIEA 




Math 5 is a collection ol povi : 
tgl programs thai Enhance I 
^abilities ol the C-H with all- 
disk drive The package provides 
toSOO^ fasten pnogram iMrJing - 
of additional basic woikspace ai 
disk cataloging 

Wach 5 Loader A 'iii lose 9&v 
all proc/ams up toSJft fastei in. 
a normal 1541 disk drive Ad 
addilipn "single keystroke' cor 
mantis to make lite with your li 
more pleasant Math 5 Ba; 
(nudities the C-64 kernal and 0a< 
ROMs to free up an additional - 
bytes ci memory lot use by ta 
language programmers Fbe m 
space is increased liom 38k to 4! 
while remaining lolly tompalit 
with normal CBM version 2 oa< 
and Macfi 5 Loader. 

Math 5 Disk fjigawei is 
comprehensive disk manageme 
piogram which will create a da 
disk containing dnectory inform 
lion from (tie user's entire ti 
library. Disk names. Irk names a 
other important information is aut 
manually extracted from a disk 3 
cataloged for future reference. T 
user can then obtain a sorted list 

disks and all tiles within tin 
library, or search tor specilic t 
names or parts of names. Oflp 
can be directed to eithei screen 
printer 



as: Software incorporated 



These Access Software products are compatible with th( 
Commodore 64, Atari, Apple 1I+/IIC/IIE and IBM PC/PC Jr. Be 

^ for other Access Software products at a store near you 



Reader Service No. 



Inc. All rirjhls i 



